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.
