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

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

Tenho que filtrar dados bastante grandes (102.858 linhas, 9 colunas).

A ideia é que entre essas linhas (endereços URL) haja muitas duplicatas. A1:A102000 contém endereços URL com e sem comentários. Por exemplo, 1 linha possui endereço 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 URLs exclusivos com comentários (ou sem comentários, se não houver duplicados)

Encontrei o código VBA que remove a linha inteira quando as células A1:A100000 posteriores são duplicadas. 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?

Responder1

Eu tentaria o recurso Remover Duplicados na faixa de dados. Você pode selecionar quais colunas considerar, que no seu cenário seriam apenas a coluna A.

informação relacionada