重複する行をすべて削除するExcel vba

Question

ワークシートには、日付と名前の2つの列があります。私は正確な重複するすべての行を削除したい、一意の値だけを残す。ここで

は（動作しない）私のコードです：

Sub DeleteRows() 

Dim rng As Range 
Dim counter As Long, numRows As Long 

With ActiveSheet 
    Set rng = ActiveSheet.Range("A1:B" & LastRowB) 
End With 
numRows = rng.Rows.Count 

For counter = numRows To 1 Step -1 
    If rng.Cells(counter) Like rng.Cells(counter) - 1 Then 
     rng.Cells(counter).EntireRow.Delete 
    End If 
Next 

End Sub 

それは私が「型が一致しません」を取得られる原因のようだ「rng.Cells（カウンタ）-1のように」です。あなたが使用することができRemoveDuplicates方法あります

Answer 1

：

Sub DeleteRows() 

    With ActiveSheet 
     Set Rng = Range("A1", Range("B1").End(xlDown)) 
     Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes 
    End With 

End Sub 

Answer 2

は、任意の列に重複値は、ループのためのシンプルで削除することができます。

Sub remove() 
Dim a As Long 
For a = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 
If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, 1)) > 1 Then Rows(a).Delete 
Next 
End Sub