Jak usunąć cały wiersz, gdy kolumny A1: A100000 są duplikowane

Muszę filtrować całkiem duże dane (102858 wierszy, 9 kolumn).

Pomysł polega na tym, że między tymi wierszami (adresy URL) znajduje się wiele duplikatów. A1: A102000 zawiera adresy URL z komentarzami i bez nich. Na przykład 1 wiersz ma adres URL (A1), komentarz (B1), datę (C1) i tak dalej. A2 i C2 są takie same jak A1 (URL), ale puste w B2, C2, B3, C3. Muszę uzyskać listę unikalnego adresu URL z komentarzami (lub bez komentarzy, jeśli nie ma duplikatów)

Znalazłem kod VBA, który usuwa cały wiersz, gdy później komórki A1: A100000 są duplikowane. Działa jednak tylko z małą liczbą wierszy. Po prostu dostaję „Błąd czasu wykonywania 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

Czy masz jakieś sugestie?

Spróbowałbym funkcji Usuń duplikaty na wstążce Dane. Możesz wybrać kolumny do rozważenia, które w twoim scenariuszu będą po prostu kolumną A.