☰

So löschen Sie die gesamte Zeile, wenn die Spalten A1:A100000 dupliziert sind

tag-icon • tag-icon microsoft-excel duplicate
So löschen Sie die gesamte Zeile, wenn die Spalten A1:A100000 dupliziert sind

Ich muss ziemlich große Datenmengen filtern (102.858 Zeilen, 9 Spalten).

Die Idee ist, dass sich zwischen diesen Zeilen (URL-Adressen) viele Duplikate befinden. A1:A102000 enthält URL-Adressen mit und ohne Kommentare. Beispielsweise enthält 1 Zeile eine URL-Adresse (A1), einen Kommentar (B1), ein Datum (C1) und so weiter. A2 und C2 sind dieselben wie A1 (URL), aber B2, C2, B3, C3 sind leer. Ich muss eine Liste eindeutiger URLs mit Kommentaren erhalten (oder ohne Kommentare, wenn es keine Duplikate gibt).

Ich habe VBA-Code gefunden, der die gesamte Zeile entfernt, wenn später A1:A100000-Zellen dupliziert werden. Dies funktioniert jedoch nur mit einer kleinen Anzahl von Zeilen. Ich erhalte nur „Laufzeitfehler 1004“

Sub RemoveDupe()
Dim rCell As Range
Dim rRange As Range
Dim lCount As Long

Set rRange = Range("A1", Range("A" & Rows.Count).End(xlUp))
lCount = rRange.Rows.Count

For lCount = lCount To 1 Step -1
    With rRange.Cells(lCount, 1)
        If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
            .EntireRow.Delete
        End If
    End With
Next lCount
End Sub

Haben Sie einen Vorschlag?

Antwort1

Ich würde die Funktion „Duplikate entfernen“ im Menüband „Daten“ ausprobieren. Sie können auswählen, welche Spalten berücksichtigt werden sollen. In Ihrem Szenario wäre das nur Spalte A.

verwandte Informationen