【Excel VBA】指定行以降をクリアするには？

.Cells.ClearContents は指定のシート内のセルを全クリアするものと思っています。

上から2行目までだけ残し、3行目以降を全てクリアするにはどうしたら良いでしょうか？

No.4 ベストアンサー 回答者： zongai 回答日時： 2021/09/26 12:25

> セルに設定していた条件付き書式は消さずにセル内の値だけ消す事はできませんか？

.ClearContents
では条件付き書式は消えないはずです。

試行錯誤しているうちに、行全体削除の
.EntireRow.Delete
を試してみたとか、手作業で消してしまったとか考えられませんか？


（参考）
セルのクリア（Clear,ClearContents）｜VBA入門
https://excel-ubara.com/excelvba1/EXCELVBA339.html

> Clear 全体（数式・文字・書式・コメント全て）をクリアします。
> ClearComments コメントを消去します。
> ClearContents 数式と文字を削除します。
> ClearFormats 書式設定を削除します。
> ClearNotes コメントを削除します。
> ClearOutline アウトラインを消去します。
> ClearHyperlinks 2010以降のみ、ハイパーリンクを削除します。

この回答へのお礼

消し方の様々な方法、ありがとうございます。
非常に参考になります。

お礼日時：2021/10/03 12:42

No.3 回答者： zongai 回答日時： 2021/09/25 17:27

> もし、「Aシート」というシートの3行目以降をClearと一回で済ませる事は出来ますか？

Sheets(”Aシート").Rows("3:" & Rows.Count).ClearContents

この回答へのお礼

ありがとうございました、出来ました！
度々追加ですみません。
セルに設定していた条件付き書式は消さずにセル内の値だけ消す事はできませんか？

お礼日時：2021/09/26 11:47

No.2 回答者： tatsumaru77 回答日時： 2021/09/25 16:51

Rows("3:" & Rows.count).ClearContents

になります。

この回答へのお礼

ありがとうございます！できました。

お礼日時：2021/09/25 17:14

No.1 回答者： zongai 回答日時： 2021/09/25 16:48

Rows("3:" & Rows.Count).ClearContents

でどうですか？

この回答へのお礼

ありがとうございます。
現在は、
・「Aシート」に移動
・3行目以降をClear
と2段階で処理しています。

もし、「Aシート」というシートの3行目以降をClearと一回で済ませる事は出来ますか？

お礼日時：2021/09/25 17:14