質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

1回答

7403閲覧

複数シートに同じ処理を行いたい

kanata0214

総合スコア4

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2022/01/19 05:24

前提・実現したいこと

VBAで複数シートに同じ処理を行いたいです。

〇処理
各シートの2行目から最終行までデータをクリアしたい。
1行目に項目名が書かれており、A列~G列までデータが格納されている。

以下のようなシートがあります。
・メイン
・01~10 ※二桁の数字で増えることもあります
・計算用

該当のソースコード

VBA

1Sub 一括クリア() 2 '画面更新停止 3 Application.ScreenUpdating = False 4 Sheets(Array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10")).Select 5 Sheets("01").Activate 6 7 Rows("2:450").Select '450以上行があった場合どうするか 8 Selection.ClearContents 9 10End Sub

試したこと

Range("A1").CurrentRegion.Offset(1, 0).ClearContents
を使って削除しようとしたところ、01シートはうまくいきましたが、他のシートが01の最終行までしか削除されませんでした。

補足情報(FW/ツールのバージョンなど)

ここにより詳細な情報を記載してください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

シート名が「01~10 ※二桁の数字」に該当する場合に
処理させるとうまく動作します。

VBA

1Sub 一括クリア() 2 Dim Sh As Worksheet 3 For Each Sh In ThisWorkbook.Worksheets 4 If Sh.Name Like "[0-9][0-9]" And Len(Sh.Name) = 2 Then 5 Sh.Activate 6 Sh.Range("A1").CurrentRegion.Offset(1, 0).ClearContents 7 End If 8 Next Sh 9End Sub

投稿2022/01/19 06:03

編集2022/01/19 06:12
TanakaHiroaki

総合スコア1063

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

kanata0214

2022/01/19 07:29

ありがとうございます!無事動作しました! シート名を数字で指定する方法を知らなかったので大変助かりました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問