Gruppe
Allgemein
Bereich
Bearbeiten
Thema
Doppelte Datensätze löschen
Problem
Wie kann ich alle in Spalte A doppelt vorkommenden Datensätze löschen?
Lösung
über Menü DATEN / FILTER / Spezialfilter / Kästchen "Keine Duplikate" aktivieren / Ausgabebereich angeben / Quellspalten löschen. te" aktivieren / Ausgabebereich angeben / Quellspalten löschen, oder über VBA mit nachfolgendem Code.
StandardModule: basMain
Sub SetFilter()
Application.ScreenUpdating = False
Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, CopyToRange:= _
Range("B1"), Unique:=True
Columns(1).EntireColumn.Delete
Application.ScreenUpdating = True
End Sub