色々議論が出ていますが、下記のようなことではいかがですか。
(1)Sheet1の画面で、
ALTキーを左手で押したまま、F11キーついでIのキー
次いでMのキーを少し間をおいて押します。VBEのModule1の画面になります。
(2)そこに下記をコピーし、Module1の画面に貼りつけてください。
Sub test01()
For i = 1 To 20
For j = 1 To 10
If Cells(i, j).HasFormula Then
Else
Cells(i, j) = ""
End If
Next j
Next i
End Sub
シートは別シートにコピーしてやってくださいね。
そのコピー先のシートをアクチブにして、上記を実行のこと。
またi = 1 To 20の20はデータ・式のある最下行+アルファの数字で置き換えてください。j = 1 To 10の10も、データ・式の入っている最右列をA列から数えて何番目か数えて+アルファして置き換えてください。
(3)実行してください。すると式の入っているセルは0が残ります。(テスト済み)。
セルの値で割っているときはエラー表示が出るでしょう。しかし質問者nyanta31さんはこれで一向構わないのでしょう?。
但しデータの入ったセルの書式も消えて、これではとおしゃっるかなあ。