Como excluir a linha inteira quando as colunas A1: A100000 são duplicadas

Question

Eu tenho que filtrar dados bastante grandes (102858 linhas, 9 colunas).

A ideia é que entre essas linhas (endereços URL) existem muitas duplicatas. A1: A102000 contém endereços de URL com e sem comentários. Por exemplo, 1 linha tem endereço de URL (A1), comentário (B1), data (C1) e assim por diante. A2 e C2 são iguais a A1 (URL), mas em branco em B2, C2, B3, C3. Preciso obter uma lista de URL exclusivo com comentários (ou sem comentários, se não houver duplicidade)

Encontrei o código do VBA que remove a linha inteira quando células A1: A100000 posteriores são dublicadas. No entanto, funciona apenas com um pequeno número de linhas. Acabei de receber "Erro em tempo de execução 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

Você tem alguma sugestão?

    

Answer 1

Eu tentaria o recurso Remover Duplicatas na faixa de opções Dados. Você pode selecionar quais colunas considerar, que em seu cenário seria apenas a coluna A.