Macro que borre los ceros de algunas celdas de un rango

Hola. Necesitaría una macro que me borrarse los ceros de algunas celdas del rango (a1:r3). Los ceros vienen de un pegado especial valores y me estorban para presentar un gráfico.

Muchas gracias y un saludo.

1 respuesta

Respuesta
1

Te anexo la macro

Sub QuitarCeros()
'Por Dante Amor
    For Each c In Range("A1:R3")
        If c = 0 Then c.Value = ""
    Next
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas