VBA: Apagar valores zero(0) em determinado Range.

Se pretendermos apagar os valores zero (0) de determinado Range sem retirar o formato das células em causa, podemos utilizar o seguinte código:

Sub Apaga_Zeros()

Dim r As Range

Set r = Range(“A1:D10”)

r.Select
Selection.Replace What:=”0″, Replacement:=””, LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

End Sub