Macro para eliminar ceros
En la columna A desde A1 hasta A100 hay números, celdas vacías y ceros, necesito una macro que recorra el rango y me elimine unicamente los ceros que el resto del rango quede igual... Muchas gracias x tu ayuda
Aquí te mando mi macro revísala
Sub elimnaceros()
Range("a1").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = 0 Then
Selection.ClearContents
ActiveCell.Offset(1, 0).Select
End If
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Respuesta de snaki Fco
1
2 respuestas más de otros expertos
Respuesta de Nelson Felipe Serrano
1
Respuesta de prozac
1