Gruppe
Allgemein
Problem
Wie kann ich aus einer Tabelle alle doppelt vorkommenden Datensätze und leere Zeilen löschen?
StandardModule: basMain
Sub Filtern()
With ActiveSheet.UsedRange
.Sort Key1:=Range("A2"), Order1:=xlDescending, _
Header:=xlGuess, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
.AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Cells(1, .Columns.Count + 1), _
Unique:=True
.EntireColumn.Delete
End With
Columns.AutoFit
End Sub