The following code will clear the content of a cell that contains a
formula and whose result is zero. MAKE A BACKUP COPY of your data
before you use this, so you can be sure it does what you want it to do!

Sub Scrub()
Dim nCell As Variant

For Each nCell In ActiveSheet.UsedRange
If nCell.Value < "" And Mid(nCell.Formula, 1, 1) = "=" And _
nCell.Value = 0 Then nCell.ClearContents
Next nCell

End Sub