ich habe mir dieses Makro geschrieben, es löscht alle Duplikate in Spalte A...
Jetzt ist aber mein Problem...wenn die Spalte 20000 Begriffe enthält, wird mit diesem Makro jede Zelle einzel durchsucht und es dauert nur für die eine Spalte mehrere Minuten um alle Duplikate zu löschen.
Matrizenformeln habe ich extra nicht angewandt ,da sonst die Datei zu gross werden würde.
Gibt es eine andere Möglichkeit, alle Duplikate in Spalte A zu löschen, welche schneller ist als dieses Makro?
Achtung: Spalte A muss sortiert (aufsteigend oder absteigend spielt keine Rolle) sein!
Sub löschen()
Range("A1").Select
Do Until IsEmpty(ActiveCell)
If ActiveCell.Offset(1, 0).Value = ActiveCell.Value Then
ActiveCell.Offset(1, 0).Cells.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Vielen Dank für eure Inputs!
Mit freundlichen Grüssen
Ivo