【エクセルマクロ】テキストファイルの重複しないデータ作成：コピペで使えるコード

エクセルマクロで、テキストファイルの重複しないデータ作成するVBAコードをご紹介します。

このページのマクロコードは、コピペで使えます。
せひ、お試しください。

テキストファイルの重複しないデータ作成
マクロ実行前
マクロ実行後

テキストファイルの重複しないデータ作成

以下のマクロを実行すると、テキストファイルを読み込み、重複しているデータを削除します。


Sub メモ帳の重複行を削除し重複しないリスト作成()

Dim Txt_file As String
Dim GetName As String
Dim i As Long
Dim myKey As Variant
Dim Dic As Variant

    '連想配列
    Set Dic = CreateObject("Scripting.Dictionary")

    'テキストファイルを開く
    Txt_file = "C:\Users\admin\Desktop\テスト\input.txt"
    Workbooks.OpenText FileName:=Txt_file
    
    'ループ
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row

        '値を変数へ
        GetName = Cells(i, 1)

        '重複しないリストを連想配列へ
        If Not Dic.Exists(GetName) Then
            Dic.Add GetName, GetName
        End If
    Next i

    myKey = Dic.keys

    'ファイルを保存しないで閉じる
    ActiveWindow.Close False
    
    'テキストファイルを開く
    Txt_file = Txt_file = "C:\Users\admin\Desktop\テスト\output.txt"
    Workbooks.OpenText FileName:=Txt_file
    
    '重複しないリストを書き込み
    For i = 0 To UBound(myKey)
        Cells(i + 1, 1) = myKey(i)
    Next i
    
    'ファイルを保存して閉じる
    ActiveWindow.Close True
    
End Sub