目次
目的
- ワークシートのすべての値、書式を削除したい。
- 背景色、罫線も削除したい。
- Cells プロパティを使用する。
テストしてみました。
題材
題材として、下記画像のようなワークシートを準備しました。
私が使用している、 Excel2003 の終端セル IV65536 まで、値、書式が設定されています。
![全てのセルに「a」の文字が入力されています。黄色の背景色、黒の罫線を設定してあります。](https://pulogu.net/wordpress/wp-content/uploads/2023/11/all-cells-erase.png)
![Excel2003 の終端セル IV65536 まで入力されている。](https://pulogu.net/wordpress/wp-content/uploads/2023/11/all-cells-erase-001.png)
マクロの一例
下記マクロを作成してみました。上記、題材の状態で実行してみます。
Cells プロパティ自体を対象にすると、セル全体を操作出来るようです。
ClearContents メソッドを使用すると、値、数式のみ消去できるようです。
Sub セル値のみ全て消去()
Cells.ClearContents
End Sub
マクロを実行してみると、下記画像のようになりました。セルの値のみ消去されたようです。
![マクロの実行結果。セルの値が消去されている。](https://pulogu.net/wordpress/wp-content/uploads/2023/11/all-cells-erase-002.png)
次は、書式まで消去する下記マクロを試してみます。上記、題材の状態で実行してみます。
Clear メソッドを使用すると、書式まで消去できるようです。
Sub 値と書式を全て消去()
Cells.Clear
End Sub
マクロを実行してみると、値と書式が消去されました。
![マクロの実行結果。値と書式が削除されている。](https://pulogu.net/wordpress/wp-content/uploads/2023/11/all-cells-erase-003.png)
![マクロの実行結果。 IV65536 まで消去されている。](https://pulogu.net/wordpress/wp-content/uploads/2023/11/all-cells-erase-004.png)
テスト環境
- Windows 10(64 ビット)
- Microsoft Office Excel 2003
以上、閲覧ありがとうございました。