Macro eliminar repetidos en Excel

Utilísima macro para eliminar repetido. A quién no se le han enchinado los cabellos por tener listas de cientos de filas que queremos sólo dejar registros únicos, aunque también se puede con filtro avanzado, esta vez se hará con macro:

Macro:

Sub repetidos()
Application.ScreenUpdating = False
Range(“A1”).Select
Do While Not IsEmpty(ActiveCell)
x = WorksheetFunction.CountIf(Range(“A:A”), ActiveCell)
If x > 1 Then
ActiveCell.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Range(“A1”).Select
Application.ScreenUpdating = True
End Sub

Nota: para que la macro sea más rápida se recomienda ordenar los datos.

You may also like...

  • Jose

    Sergio nuevamente gracias por resolverme un problema mas. Es justo lo que andaba buscando el codigo funciona 100%.

    Saludos,

    Jose

  • yO

    EXCELENTE CODIGO, GRACIAS!

  • PEPE

    NO FUNCIONA, “Loop Range(“A1″).Select” NO ES UN COMANDO VALIDO

    • Vuelve a intentar. El código estaba en una sóla línea:

      Loop
      Range("A1").Select

  • Omar

    Buen día. Muy buena la macro, pero. elimina ambos valores y solo hay que quitar uno….
    Saludos.

  • ibsán

    Excelente código, solo que en mi caso ocupo que elimine el 2° duplicado y no el primero!!! Me pueden ayudar??

    Saludos…