グループ化したワークシートを操作する
練習・集計のA1に同じ見出しを入力し、最後にグループを解除します。
実行前に確認
- 両方のA1を上書きします。選択したシートを明示的にループして変更し、最後に1枚だけ選択します。
1サンプルコード
Sub Sample3070()
Dim sh As Object
ThisWorkbook.Activate
ThisWorkbook.Worksheets(Array("練習", "集計")).Select
For Each sh In ActiveWindow.SelectedSheets
sh.Range("A1").Value = "月次レポート"
Next
ThisWorkbook.Worksheets("練習").Select
End Sub図で見る操作の流れ
イメージ図概念図：2枚をまとめて選び、各シートのA1を明示的に更新します。
手動：準備
「練習」と「集計」のA1を空ける
マクロ：グループ選択
練習と集計を選び、各A1へ「月次レポート」を入力
マクロ：選択解除
最後に練習だけを選択
結果
両方のA1に同じ文字。シートのグループ選択は解除済み
両方のA1を上書きします。
コードの処理を説明する模式図です。実際の画面や実行結果を撮影したものではありません。
使い方・実行手順を確認する3つの手順で、コードの使い方を確認できます
- 1
練習用のブックをExcelマクロ有効ブック（.xlsm）で保存します。「練習」と「集計」を用意し、A1は空けます。
- 2
Alt＋F11でVBEを開き、［挿入］→［標準モジュール］にコードを貼り付けます。
- 3
Sample3070内にカーソルを置いてF5で実行します。練習・集計のA1に同じ見出しを入力し、最後にグループを解除します。