ExcelVBAマクロでシートを初期化(全てのセルの内容を削除)する
他のシートも削除したかったので、プロシージャを分けてあります。特定のシートだけ初期化するのであれば、もっと簡単になりますね。
Sub all_clear_sheet(ByVal sheet_name As String) 'アクティブシートの切り替え ActiveWorkbook.Worksheets(sheet_name).Activate 'アクティブシートの図形・画像を全て削除 ActiveSheet.DrawingObjects.Delete 'アクティブシートの内容を全て削除 ActiveSheet.Cells.Clear 'アクティブシートのコメントを全て削除 ActiveSheet.Cells.ClearComments End Sub Sub clear_sheet1() 'Sheet1の全てのセルの内容を削除 Call all_clear_sheet("Sheet1") End Sub
Excel2010で動作確認しました。