☰

Cómo eliminar una fila completa cuando las columnas A1:A100000 están duplicadas

tag-icon • tag-icon microsoft-excel duplicate
Cómo eliminar una fila completa cuando las columnas A1:A100000 están duplicadas

Tengo que filtrar datos bastante grandes (102858 filas, 9 columnas).

La idea es que entre estas filas (direcciones URL) haya muchos duplicados. A1:A102000 contiene direcciones URL con y sin comentarios. Por ejemplo, 1 fila tiene dirección URL (A1), comentario (B1), fecha (C1), etc. A2 y C2 son iguales que A1 (URL), pero en blanco en B2, C2, B3, C3. Necesito obtener una lista de URL únicas con comentarios (o sin comentarios si no hay duplicados)

Encontré un código VBA que elimina la fila completa cuando posteriormente se duplican las celdas A1:A100000. Sin embargo, sólo funciona con una pequeña cantidad de filas. Acabo de recibir "Error de tiempo de ejecución 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

¿Tiene alguna sugerencia?

Respuesta1

Probaría la función Eliminar duplicados en la cinta Datos. Puede seleccionar qué columnas considerar, que en su escenario sería solo la columna A.

información relacionada