【Excel VBA】複数のワークシートを作業グループとしてまとめて選択する方法

2025年8月13日

複数のシートに同じヘッダーを追加したり、同じ印刷設定を適用したりする際、手作業ではCtrlキーやShiftキーを押しながらシートタブをクリックして「作業グループ」を作成します。

VBAを使えば、この作業グループの作成も自動化できます。この記事では、Worksheet.SelectメソッドのReplace引数を使い、複数のシートをプログラムでまとめて選択する方法を解説します。

核心は .Select メソッドの `Replace` 引数

シートを選択する.Selectメソッドには、Replaceという引数があります。この引数の設定値で、シート選択の挙動が変わります。

mySheet.Select (または mySheet.Select Replace:=True) これが既定の動作です。現在選択されているシートをすべて解除し、mySheetだけを新しく選択します。
mySheet.Select Replace:=False これが作業グループを作成するための鍵です。現在の選択状態を維持したまま、mySheetを選択に追加します。Ctrlキーを押しながらシートタブをクリックする操作に相当します。

完成したVBAコード（実用例）

ここでは、実務でよく使われる2つのパターンをコード例として紹介します。

① 特定の複数シートを名前で選択する

Array関数を使い、作業グループにしたいシートの名前を列挙するのが最も確実で分かりやすい方法です。

Sub SelectSpecificSheets()

    ' Array関数の中に、グループ化したいシート名をカンマ区切りで記述
    ThisWorkbook.Worksheets(Array("概要", "データ入力", "グラフ")).Select

    MsgBox "指定した3枚のシートを作業グループとして選択しました。"
    
    '--- 作業グループを解除 ---
    ' 解除するには、いずれか1枚のシートを単独で選択し直します
    ' ThisWorkbook.Worksheets("概要").Select

End Sub

② 条件に一致するシートをすべて選択する

Forループを使い、条件に合致するシートを動的に作業グループに追加していく応用例です。ここでは、「Report」という文字で始まる名前のシートをすべて選択します。

Sub SelectSheetsByCondition()

    ' 変数を宣言します
    Dim ws As Worksheet
    Dim isFirstSheetFound As Boolean
    isFirstSheetFound = False

    ' ブック内のすべてのワークシートをループ
    For Each ws In ThisWorkbook.Worksheets
        ' シート名が "Report" で始まるかどうかを判定
        If ws.Name Like "Report*" Then
        
            ' 最初に見つかったシートか？
            If isFirstSheetFound = False Then
                ' 最初のシートは、通常通り選択 (Replace:=True)
                ws.Select
                isFirstSheetFound = True
            Else
                ' 2枚目以降は、選択に追加 (Replace:=False)
                ws.Select Replace:=False
            End If
            
        End If
    Next ws
    
    ' 1枚も見つからなかった場合の処理
    If isFirstSheetFound = False Then
        MsgBox "条件に一致するシートが見つかりませんでした。"
    Else
        MsgBox "条件に一致するシートをすべて選択しました。"
    End If

End Sub