Replace Blank Cells with Zeros

Replace Blank Cells with Zeros

For data where you have blank cells, you can add zeros in all those cells. It makes easier to use formula and use those cells in further calculations.

Sub replaceBlankWithZero()

Dim rngAs Range

Selection.Value= Selection.Value

For Each rngIn Selection

If rng= "" Or rng= " " Then

rng.Value= "0"

Else

End If

Next rng

End Sub