多めに範囲指定して下記を実行すると、演算式がない数のセルがクリアされます。漢字・カナ・文字列数字やそれらを使った見だしなどは残ります。
Sub test01()
Selection.SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
End Sub
xlCellTypeConstantsとxlNumbersをいろいろ他のものに
変えると、色々なタイプの消し方が1行のプログラムで出来ます。
xlNumbers + xlTextValuesとすると数字と文字が消えます。
http://www.nurs.or.jp/~ppoy/access/excel/xlA007.htmlなどに解説あり。
お礼
ありがとうございました。