【VBA】テキストファイルをソートして、重複行を削除する

VBAコード

ここでは例として
　・デスクトップ配下のテキストファイル「sample.txt」をソートして、重複行を削除
します。

Option Explicit

Sub sample()
    
    Dim targetFile As String
    Dim psCommand As String
    Dim wsh As Object
    Dim result As Integer
    
    '対象ファイル
    targetFile = "C:\Users\user\Desktop\sample.txt"
    
    'PowerShellのコマンドレットを組み立て
    psCommand = "powershell -NoProfile -ExecutionPolicy Unrestricted "
    psCommand = psCommand & "(Get-Content " & targetFile & ") | Sort-Object -Unique "
    psCommand = psCommand & "| Out-File -Encoding default " & targetFile
    
    Set wsh = CreateObject("WScript.Shell")
    
    'PowerShellのコマンドレットを実行
    result = wsh.Run(Command:=psCommand, WindowStyle:=0, WaitOnReturn:=True)
    
    If (result = 0) Then
        MsgBox ("ソート(重複削除含む)が正常終了しました。")
    Else
        MsgBox ("ソート(重複削除含む)が異常終了しました。")
    End If
    
    '後片付け
    Set wsh = Nothing
    
End Sub

実行結果

テキストファイルをソートして、重複行を削除できました。

参考①

上記のVBAコードは以下の記事を参考にして作成しました。

参考②

上記で使用した以下の詳細は、公式サイトをご確認ください。

●Power Shellのコマンドレット「Get-Content」

●Power Shellのコマンドレット「Sort-Object」

●Power Shellのコマンドレット「Out-File」