エクセルマクロで、テキストファイルの重複しないデータ作成する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
マクロ実行前
「input.txt」は、文字列が複数入力してあります。
重複している文字と、重複していない文字が混在しています。
マクロ実行後
「input.txt」の中から、重複しないリストを抽出して「output.txt」へ出力します。
この記事がお役に立ちますと幸いです。

【エクセルマクロ】テキストファイルを自動操作する:超便利8選
...
「プログラマーの本気がExcelを覚醒させる 超絶ExcelVBA」
ExcelVBAでワンランクアップできる書籍
具体的で応用が利く技をたくさん掲載
リンク