actualmente tengo el siguient ecodigo y lo quiero
complementar chequen:
Sub EliminarRepetidos()
contador = 0
Range("b1").Select
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("a1").Select
While ActiveCell.Value <> ""
If ActiveCell.Value = valor Then
'aqui quiero seleccionar toda la fila o cuando menos que
elimine las filas de dos columnas
'actualmente me esta posicionando en una celda y solo
elimina esa celda con el siguiente select
Selection.Delete Shift:=xlUp
contador = contador + 1
Else
valor = ActiveCell.Value
ActiveCell.Offset(1, 0).Range("a1").Select
End If
Wend
Respuesta = MsgBox("Se han encontrado " & contador & "
elementos repetidos", 1, "Número de repetidos")
End Sub
espero sus respuestas amigos.
Saludos
Leer las respuestas