セルにある文章から重複しているものだけを削除するよ

makotoym

2024年12月28日 19:09

この説明は、ChatGPTで作成しています。

このプロシージャは、選択されているセル範囲内のテキストから重複している行を取り除きます。以下に簡単に仕組みを説明します。

主な動きの流れ

セルの選択内容を処理する準備
- プログラムは、まず画面の更新を一時的に停止し（作業を速くするため）、セルの選択内容を1つずつ処理します。
セル内のテキストを分割
- 各セルのテキストを1行ごとに分けます。これには、改行（vbLf）を使っています。
重複を確認し削除
- 分割された行のリストを「辞書」（Dictionary）という仕組みを使って管理します。
- 辞書は、重複したデータを登録しない性質があるため、同じ行が複数あった場合は最初の1つだけが残ります。
再び改行で結合してセルに戻す
- 重複が削除されたリストを再び改行でつなぎ合わせ、元のセルに書き戻します。
作業完了後、画面更新を再開
- 最後に画面更新を元に戻して、作業を終わらせます。

実行方法

処理したいセル範囲を選択します。
このマクロを実行します。
選択したセルの中から重複行が取り除かれた状態になります。

このプロシージャを使うときのポイント

改行で区切られている内容が対象です。1行ずつ書かれたリストのようなデータに最適です。
同じ行でも、スペースや余分な空白がある場合は異なるものとして認識される可能性があります。空白を自動的に削除する工夫も含まれています。

コードの活用例

名簿やリストの整理。
メモや作業記録の重複を除去。

Sub セルにある文章から重複しているものだけを削除するよ()
    Application.ScreenUpdating = False
    On Error Resume Next
    Dim myRng As Range
    For Each myRng In Selection
        ' テキストを分割
        Dim txt As String
        txt = myRng.Value
        Dim arr As Variant
        arr = Split(txt, vbLf)

        ' 重複を削除
        Dim dict As Object
        Set dict = CreateObject("Scripting.Dictionary")
        Dim item As Variant
        For Each item In arr
            If Not dict.exists(Trim(item)) Then
                dict.Add Trim(item), Nothing
            End If
        Next item

        ' 再度改行区切りの形式に戻す
        Dim txt2 As String
        txt2 = Join(dict.keys, vbLf)
        myRng.Value = txt2
    Next myRng
    Application.ScreenUpdating = True
End Sub

キーワード

#excel #できること #vba #テキスト処理 #セル操作 #改行 #重複削除 #辞書オブジェクト #データ整理 #自動化 #初心者向け #効率化 #エラー処理 #改行区切り #プログラミング #スクリプト #Excel自動化 #仕事効率化 #重複排除

Translation to English

Remove Duplicates from Text in Selected Cells

This explanation is created using ChatGPT.

This macro removes duplicate lines of text within the selected range of cells. Here's how it works:

Main Process Steps

Prepare to Process the Selected Cells
- The macro temporarily pauses screen updates (to speed up the operation) and processes each cell in the selection one at a time.
Split the Text in Each Cell
- The text in each cell is split into lines using line breaks (vbLf).
Identify and Remove Duplicates
- A "Dictionary" object is used to manage the list of split lines. Since dictionaries only allow unique entries, duplicates are automatically removed.
Rejoin the Lines and Write Back to the Cell
- The unique lines are rejoined with line breaks and written back into the cell.
Restore Screen Updates After Completion
- The macro resumes screen updates to complete the operation.

How to Use This Macro

Select the range of cells you want to process.
Run this macro.
The selected cells will be updated to remove duplicate lines of text.

Tips for Using This Macro

The target content must be line-separated. It's best suited for data like lists written line by line.
Lines with extra spaces or whitespace may be treated as different. The macro includes a mechanism to remove unnecessary spaces.

Example Uses

Organizing names or lists.
Removing duplicate notes or work records.

Keywords

#excel #whatispossible #vba #textprocessing #celloperations #linebreaks #removeduplicates #dictionaryobject #datacleanup #automation #beginnerfriendly #efficiency #errorhandling #linebreakformat #programming #scripting #excelautomation #workefficiency #duplicateelimination

セルにある文章から重複しているものだけを削除するよ

Translation to English

いいなと思ったら応援しよう！