AW: duplikate über 5 spalten suchen und löschen
ChrisL
Hi Matt
Hier ein Beispiel mit bedingter Formatierung und Hilfsspalte...
https://www.herber.de/bbs/user/6510.xls
Hier ein Makro...
Sub DuplikateLöschen()
Dim iZeile As Long, iiZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = 2 To iZeile
If Cells(iZeile, 1) = Cells(iiZeile - 1, 1) And _
Cells(iZeile, 2) = Cells(iiZeile - 1, 2) And _
Cells(iZeile, 3) = Cells(iiZeile - 1, 3) And _
Cells(iZeile, 4) = Cells(iiZeile - 1, 4) And _
Cells(iZeile, 5) = Cells(iiZeile - 1, 5) Then
Rows(iZeile).EntireRow.Delete
Exit For
End If
Next iiZeile
Next iZeile
End Sub
oder...
Sub DuplikateLöschen()
Dim iZeile As Long, iiZeile As Long
For iZeile = Range("A65536").End(xlUp).Row To 2 Step -1
For iiZeile = 2 To iZeile
If Cells(iZeile, 3) = Cells(iiZeile - 1, 3) And _
Cells(iZeile, 4) = Cells(iiZeile - 1, 4) And _
Cells(iZeile, 5) = Cells(iiZeile - 1, 5) Then
Rows(iZeile).EntireRow.Delete
Exit For
End If
Next iiZeile
Next iZeile
End Sub
Gruss
Chris