クリア編
セルの内容をすべて消すには？
'書式・数式も含めすべてクリアする。
Sub 全てクリア()
Range("A1").Clear
End Sub
セルの内容の数式や文字のみ消すには？
'書式以外の数式や文字のみクリアする。
（キーボードのDeleteキーを押した際の動作と同じです）
Sub 数式と文字のクリア()
Range("A1").ClearContents
End Sub
セルの内容の書式のみ消すには？
'書式のみクリアする
Sub 書式のクリア()
Range("A1").ClearFormats
End Sub
セルに関連付けられているコメントを消すには？
'コメントを削除します。
Sub コメントのクリア()
Range("A1").ClearComments
End Sub