Frage von sigimonster,

Excel - doppelte Zeilen löschen

Hallo, ich habe ein größeres Excelarbeitsblatt (Excel 2007) mit ca. 4000 Zeilen. Einige der Zeilen sind doppelt. Hat jemand einen guten Tipp, wie ich die einfach finden und jeweils eine Zeile löschen kann. Das ganze Arbeitsblatt zu durchsuchen ist sehr aufwendig.

Vielen Dank!

Antwort von arminho1,

Falls du eine Spalte hast, anhand der du die Dubletten identifizieren kannst, kannst du folgendes VBA-Makro benutzen:

Sub Zeilen_loeschen()
    For Each r In Range("A1:A100")
        If r.Row > 1 Then
            If Cells(r.Row, 1).Value = Cells(r.Row - 1, 1).Value Then
                Rows(r.Row).Delete
            End If
        End If
    Next
End Sub

A1:A100 ist nur für die Anzahl der Zeilen interessant, bei 4000 Zeilen also A1:A4000. Der Vergleich findet in Cells(r.Row, 1).Value = Cells(r.Row - 1, 1).Value statt. Die ",1" bedeutet Spalte A. Wenn die zu vergleichenden Werte in Spalte D stehen heißt es ",4".

Eine zweite Spalte gleichzeitig vergleichen kannst du, indem du hinter Cells(r.Row, 1).Value = Cells(r.Row - 1, 1).Value einen zweiten Vergleich mit AND hängst.

Bei Änderungen mit Hilfe von VBA-Makros vorher immer eine Sicherungskopie der Datei machen!

Antwort von RBMannheim,

Wenn die Inhalte jeweils absolut identisch sind, geht das mit der ZÄHLENWENN Funktion. Jeder Inhalt der mehrfach vorhanden ist, bringt dann die entsprechende Zahl, bei den einfach vorhandenen Inhalten steht die 1. Danach kann man dann sortieren und löschen.

Antwort von Sturmwolke,

Das geht mit dem Spezialfilter über
Menü Daten -> Filter -> Spezialfilter
Wenn Du den Quell- und den Zielbereich angegeben hast,
mußt Du nur noch bei Keine Duplikate ein Häkchen setzen

Kommentar von RBMannheim,

Dann sind die Duplikate azsgeblendet, aber nicht gelöscht!

Kommentar von Sturmwolke,

In dem Fensterchen noch die Option anwählen, daß die Daten an eine andere Stelle kopiert werden, dann werden sie ohne Duplikate kopiert.
Ich habs nochmal getestet und bei mir funktioniert es (Excel 2002)

Keine passende Antwort gefunden?

Verwandte Fragen

  • Excel Zeilen wegbekommen Hallo, ich habe eine Datei mit 15000 Zeilen nach der 15.000 Zeile kommen aber noch ca. 5000 Leerzeilen, bis der Cursor des Blattes ganz unten ist. Wie bekomme ich das hin, das die 15000 ste Zeile die letzte unten ist. Dankle

    6 Antworten
  • Maerialverwaltung/-ausgabe in Excel-Datei Ich suche eine ganze einfache Lösung für eine Materialverwaltung in einem Excel-Arbeitsblatt. Angenommen, die Mitarbeiter können 5 - 10 unterschiedliche Items anfordern. In einem Excel-Arbeitsblatt soll nun automatisch bei jedem Mitarbeiter das B...

    1 Antwort
  • Matrix in dreispaltige Tabelle umwandeln Hi Leute, ich wäre euch sehr dankbar, wenn ihr mir mal wieder bei folgendem Problem helfen könntet: Ich habe in einem Excel-Arbeitsblatt eine Matrix, mit Beschriftungen in Spalte A (z.B. Jahreszahlen) und Zeile 1 (z.B. Namen) und entsprechenden W...

    2 Antworten
  • Kann das Excel-Arbeitsblatt nicht öffnen Hallo zusammen, ich hab von meiner Kollegin per Mail ein Excel-Arbeitsblatt bekommen. Es besteht aus zwei Seiten, also auf einer Seite meine täglichen Eintragungen, auf der zweiten Seite ist dann die Zusammenfassung. Mein Problem, ich bekomm nur...

    1 Antwort

Fragen Sie die Community

Weitere Fragen mit Antworten