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.

Descarga el archivo de ejemplo

Quitar duplicados – EXCELeINFO.zip

Si te gustó este tutorial por favor regístrate en nuestra Lista de correo y Suscríbete a nuestro canal de YouTube para que estés siempre enterado de lo nuevo que publicamos.

You may also like...

6 Responses

  1. Jose says:

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

    Saludos,

    Jose

  2. yO says:

    EXCELENTE CODIGO, GRACIAS!

  3. PEPE says:

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

  4. Omar says:

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

  5. ibsán says:

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

    Saludos…

Leave a Reply

Your email address will not be published.

%d bloggers like this: