【エクセルマクロ】テキストファイルの重複しないデータ作成する

エクセルマクロで、テキストファイルの重複しないデータ作成する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

    '1～最終行までループ
    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 = "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