Gruppe
Allgemein
Bereich
Bearbeiten
Thema
Doppelte Datensätze und Leerzeilen löschen
Problem
Wie kann ich aus einer Tabelle alle doppelt vorkommenden Datensätze und leere Zeilen löschen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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