Ich habe eine Liste, in der Nummern doppelt vorkommen. Jetzt will ich jedes mal wenn eine Nummer doppelt vorkommt, die komplette Zeile loeschen, dass jede Nummer im ganzen sheet nur einmal vorkommt.
Danke Vera
Sub test()
Dim i
For i = [A65536].End(xlUp).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & i), Cells(i, 1)) > 1 Then
Rows(i).Delete
End If
Next
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen