Excel: Doppelte Zeilen löschen

Wie Sie doppelte Zeilen in Excel löschen, erfahren Sie in unserer Anleitung.

25.01.2023, 17:38 Uhr

Lesezeit: 1 Min.

Von

Cornelia Möhring

Manchmal kommt es in Excel zu doppelten Eingaben. Wenn es sich bei den Duplikaten um doppelte Werte handelt, finden Sie hier Tipps zum Entfernen. Sind in Ihrem Dokument jedoch ganze Zeilen doppelt vorhanden, müssen Sie in Excel ein Makro erstellen.

Doppelte Zeilen in Excel per Makro löschen
Doppelte Zeilen per Befehl in der nächsten Spalte löschen

Doppelte Zeilen in Excel per Makro löschen

Um doppelte Zeilen in Excel zu löschen, ist ein Makro notwendig. Drücken Sie dazu [Alt] + [F11], um den Makro-Editor zu öffnen. Klicken Sie dann auf den Reiter "Einfügen" und dann auf "Modul".

So sieht die Ansicht im Makro-Editor aus.

Schreiben Sie in das eben erstellte Makro folgende Zeilen. Sie können direkt kopieren und in den Makro-Editor einfügen:

Sub DoppelteZeilenEntfernen()

Dim LetzteZeile As Long
Dim Zeile As Long

LetzteZeile = Range("A" & Rows.Count).End(xlUp).Row
For Zeile = LetzteZeile To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & Zeile), Range("A" & Zeile)) > 1 Then
Rows(Zeile).EntireRow.Delete

End If
Next

End Sub

Führen Sie zum Schluss das eben erstellte Makro aus. Jetzt werden alle Zeilen mit doppelten Einträgen gelöscht, sodass jeweils nur die erste Zeile übrig bleibt.

Hinweis: Der hier gezeigte Code bezieht sich lediglich auf Duplikate in Spalte A. Wenn Sie eine andere Spalte auf doppelte Einträge untersuchen möchten, müssen Sie "A1" bzw. "A" im gesamten Code durch den entsprechenden Spaltennamen ersetzen.

Doppelte Zeilen per Befehl in der nächsten Spalte löschen

Hinweis: Mit dieser Anleitung können Sie alle doppelten Werte löschen und nicht nur die Duplikate.

Excel Doppelte Zeilen löschen (2 Bilder)

1. Schritt:

Geben Sie in die oberste Zeile der Spalte neben Ihren potentiell doppelten Zeilen folgendes ein: =WENN(ZÄHLENWENN(A:A;A1)>1;"doppelt";"") . Dies bezieht sich auf Spalte A und Startfeld A1. Sollten Sie Ihre Daten in einer anderen Spalte haben oder in einer anderen Zeile starten, müssen Sie den Zeilennamen entsprechend anpassen.