VBA刪除基於兩列宏的重複行

Question

我在我的csv文件中有超過200k條客戶數據記錄。我希望能夠創建一個將比較帳戶號和產品名稱的宏。由於Account＃是主要關鍵字，因此它只能與單個產品名稱綁定。

我想我的宏給類似的輸出。現在，當我運行我的宏超過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