VBA 2つの列マクロに基づいて重複行を削除します

Question

私のCSVファイルに200,000件以上の顧客データレコードがあります。アカウント番号と商品名を比較するマクロを作成したいと考えています。アカウント＃はプライマリキーであるため、単一の商品名にのみ関連付けることができます。

同様の出力をマクロに与えたい。今は200kを超えるレコードでマクロを実行しています。私はわずか20行しか得られません。事前に

Sub DelDupl() 
Dim Rng As Range, Dn As Range, Del As Integer, Msg As Integer 
Set Rng = Range(Range("C2"), Range("C" & Rows.Count).End(xlUp)) 
For Msg = 1 To 2 
    For Del = Rng.Count To 1 Step -1 
     If Msg = 1 And Application.CountIf(Rng, Cells(Del, "C")) = 1 Then 

     End If 
     If Msg = 2 And Application.CountIf(Rng, Cells(Del, "C")) > 1 Then 
      Rows(Del).EntireRow.Delete 
     End If 
    Next Del 
Next Msg 
End Sub 

ありがとう！

Answer 1

MSDN - Range.RemoveDuplicates Method (Excel)：値の範囲から重複値を削除します。

Sub DelDupl() 

    Range("A1").CurrentRegion.RemoveDuplicates Columns:=Array(3, 4), Header:=xlYes 

End Sub