TodosMacro eliminar datos repetidos
Hola a todos! Tengo una duda, verán tengo en la columna A una cantidad de datos, al igual que en la columna B, C, D, ETC... Mi problema es el siguiente, en la columna A tengo datos repetidos y quisiera que me eliminara los repetidos solo de la columna A y me deje un solo registro. Los datos están agrupados ya que los necesito asi para otro calculo, por lo tanto entre entre agrupación existe una fila en blanco.
Anexo archivo de ejemplo, espero me puedan apoyar.
SAludos.
https://www.dropbox.com/s/dcij4anscb8kqiq/Ejemplo%20Duplicados.xlsx
1 respuesta
Respuesta de Luis Mondelo
1
Te mando mi solución, ejecuta esta macro en tu archivo y todo listo
Sub ejemplo()
'por luismondelo
Range("a65000").End(xlUp).Offset(1, 0).Value = "end"
Range("a3").Select
Do While ActiveCell.Value <> "end"
contarsi = Application.WorksheetFunction.CountIf(Columns(ActiveCell.Column), ActiveCell)
If contarsi > 1 Then
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(contarsi - 1, 0)).ClearContents
End If
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.ClearContents
End Sub
