Frage von sigimonster 25.02.2010

Excel - doppelte Zeilen löschen

  • Antwort von arminho1 26.02.2010

    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 25.02.2010

    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 25.02.2010

    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

Du kennst die Antwort? Frage beantworten
Bitte noch eine Antwort ... Frage erneut stellen
Diese Frage und Antworten teilen:

Verwandte Fragen

Fragen Sie die Community –

anonym und kostenlos!