セルのデータや書式を元に戻すマクロ【エクセルのセルを初期状態にする】

マクロの内容により、マクロを実行するとエクセルのシートの内容が変更されます。セルのデータ、書式、行の高さ、列の幅などが初期状態から変更されます。

マクロを再び実行して内容を確認する時は、エクセルシートが「元に戻っている」方が使いやすくなります。

この記事では、マクロで変更された内容を、元に戻すためのマクロを解説します。変更された設定などを元に戻すための、マクロを作っておくと何かと便利ですから作り方を紹介します。

すべてのセルを元に戻すマクロの解説

このマクロを実行すると、次の項目がクリアされます。

すべてのセルを元に戻すマクロのコード

VBAのコードは次の通りです。共通な「Selection」を「Withステートメント」でまとめました。

Sub 全セルを既定値へ戻すマクロ()

Cells.Select
With Selection
    .NumberFormatLocal = "G/標準"　'書式を標準に戻します。
    .RowHeight = 18.75　　 　　 　　'行の高さを変更します。
    .ColumnWidth = 8.38　 　　　　　'列の幅を変更します。
    .ClearContents　　　　　　　　　'データをクリアします。
　　.ClearFormats　　　　　　　 　　'フォーマットをクリアします。
End With

Range("A1").Select
End Sub

マクロの実行の例（シートが初期状態に戻る）

エクセルのセルが装飾されている場合の例

次の表のように、セルにデータや行の高さ、列の幅が変更されている。更にセルの書式や装飾がされている場合、シートが初期の状態に戻ります。

すべてのセルを選択する

「Cells.Select」のコードで、すべてのセルを選択します。

セルの書式を標準に戻す

「NumberFormatLocal = “G/標準”」のコードで、セルの書式を標準に戻します。日付だったものが、数字に置き換えられています。

行の高さを規定値に変更する

「RowHeight = 18.75」のコードで、行の高さを変更します。

列の幅を規定値に変更する

「ColumnWidth = 8.38」のコードで、列の幅を変更します。

セルのデータをクリアする

「ClearContents」のコードで、セルのデータをクリアします。

シートのセルが元の状態に戻る

「ClearFormats」のコマンドで、罫線や色がクリアされますのでシートが元の状態に戻ります。

まとめ

「全セルを既定値へ戻すマクロ」を実行すると、セルの状態が初期状態に戻ります。

Sub 全セルを既定値へ戻すマクロ()

Cells.Select
With Selection
    .NumberFormatLocal = "G/標準"　'書式を標準に戻します。
    .RowHeight = 18.75　　 　　 　　'行の高さを変更します。
    .ColumnWidth = 8.38　 　　　　　'列の幅を変更します。
    .ClearContents　　　　　　　　　'データをクリアします。
　　.ClearFormats　　　　　　　 　　'フォーマットをクリアします。
End With

Range("A1").Select
End Sub

VBAマクロを１行ずつ実行する方法【実例を使って解説】
不要なマクロを削除する方法