ich habe folgendes Problem:
Habs nach langen hin und her hinbekommen die doppelten Einträge in der Spalte A und die zugehörige Zeile mit diesem Makro zu löschen
Sub DoppelteLöschen()
Dim iRow As Long, iRowL As Long
iRowL = Cells(Cells.Rows.Count, 1).End(xlUp).Row
For iRow = iRowL To 1 Step -1
If WorksheetFunction.CountIf(Columns(1), Cells(iRow, 1)) > 1 Then
Rows(iRow).Delete
End If
Next iRow
End Sub
Die Tabelle hat ca 54000 Zeilen - ändert sich immer mal wieder wenn ein Update gemacht wird und 32 Spalten.In Spalte A stehen die Artikelnummer und diese kommen ab und an doppelt oder dreifach bzw. vierfach vor - sollen aber nur einmal vorkommen.
Das Makro läuft ca. 100 Minuten - läßt sich das beschleunigen?
Die Werte in Spalte A sind gefiltert und die doppelten stehen alle in absteigender Form untereinander.
Könnt Ihr mir hier auf die Spünge helfen?
Gruß
Thomas