Necesito una macro que busque y elimine números iguales dentro de la columna con Visual Basic
Hola galoa te pido un poco de tu tiempo para una macro que busque y elimine números yguales dentro de la columna B osea que todos los números que sean iguales y estén en la columna B los elimine, Un saludo
Respuesta de galoa
1
Vamos a suponer que los datos de la columna B no están clasificados. Para facilitar esto, lo vamos a clasificar. Igual suponemos que la fila 1 es la primera de los datos.
' En la variable ufila vamos a poner la última fila de datos
ufila = Range("B1").End(Xldown).Row
' Ordenamos los datos
Range("B1:B"+format(ufila)).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Borramos los datos repetidos
For fila = ufila To 2 Step -1
If Range("B" + Format(fila)) = Range("B" + Format(fila - 1)) Then
Range("B" + Format(fila)).Delete Shift:=xlUp
End If
Next fila
' En la variable ufila vamos a poner la última fila de datos
ufila = Range("B1").End(Xldown).Row
' Ordenamos los datos
Range("B1:B"+format(ufila)).Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
' Borramos los datos repetidos
For fila = ufila To 2 Step -1
If Range("B" + Format(fila)) = Range("B" + Format(fila - 1)) Then
Range("B" + Format(fila)).Delete Shift:=xlUp
End If
Next fila
Casi me vuelvo loco me daba errores hasta que descubrí que faltaba el end sub lo puse y genial funciona perfecto, muchas gracias por tu tiempo y ayuda un saludo.
