Gruppe
Allgemein
Problem
Wie kann ich alle in Spalte A doppelt vorkommenden Datensätze löschen?
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