Löschen Sie alle doppelten Zeilen Excel vba

Question

Ich habe ein Arbeitsblatt mit zwei Spalten: Datum und Name. Ich möchte alle Zeilen löschen, die genaue Duplikate sind und nur eindeutige Werte hinterlassen.

Hier ist mein Code (was nicht funktioniert):

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 

Es ist "Like rng.Cells (Zähler) -1", die die Ursache-I "Type Mismatch" erhalten zu sein scheint.

Answer 1

Es gibt eine RemoveDuplicates Methode, die Sie verwenden können:

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

Die doppelten Werte in jeder Spalte mit einem einfachen können gelöscht werden für Schleife. Versuchen

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