前提・実現したいこと
VBAで複数シートに同じ処理を行いたいです。
〇処理
各シートの2行目から最終行までデータをクリアしたい。
1行目に項目名が書かれており、A列~G列までデータが格納されている。
以下のようなシートがあります。
・メイン
・01~10 ※二桁の数字で増えることもあります
・計算用
該当のソースコード
VBA
Sub 一括クリア() '画面更新停止 Application.ScreenUpdating = False Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select Sheets("01").Activate Rows("2:450").Select '450以上行があった場合どうするか Selection.ClearContents End Sub
試したこと
Range("A1").CurrentRegion.Offset(1, 0).ClearContents
を使って削除しようとしたところ、01シートはうまくいきましたが、他のシートが01の最終行までしか削除されませんでした。
補足情報(FW/ツールのバージョンなど)
ここにより詳細な情報を記載してください。
まだ回答がついていません
会員登録して回答してみよう