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.