【VBAリファレンス】Excel VBAで特定の文字列を含むシートを瞬時に判定する実務的テクニック

ExcelVBA

2026.08.30

概要

Excel VBAを活用した業務自動化において、特定のシートが存在するかどうかを確認する処理は、堅牢なプログラムを作成するための「必須の基礎技術」です。特に、動的に生成されるシートや、ユーザーが追加・削除を行う可能性のあるブックを扱う際、存在しないシートを参照しようとして「実行時エラー 9：インデックスが有効範囲にありません」というメッセージに遭遇した経験は誰にでもあるはずです。本稿では、単純な名前一致だけでなく、部分一致や正規表現を用いた応用的な判定手法まで、プロフェッショナルな視点から徹底的に解説します。

詳細解説

シートの存在判定を行う際、最も避けるべきは「On Error Resume Next」を多用した乱暴なコードです。エラーを無視して処理を進める手法は、意図しないバグの温床となります。正攻法は、すべてのシートをループで巡回し、名前を比較する方法です。

基本的な考え方は、Worksheetsコレクション内の各オブジェクトに対して、Nameプロパティを逐次チェックすることです。ここで「特定の文字列を含む」という条件を加える場合、VBAの「Like演算子」や「InStr関数」を組み合わせるのが定石となります。

InStr関数は、指定した文字列が対象文字列の中に含まれている場合、その開始位置（数値）を返します。0が返ってくれば「含まれていない」、それ以外であれば「含まれている」と判断できます。一方、Like演算子はワイルドカード（*）を使用できるため、「A列から始まるシート名を探す」といった柔軟な指定が可能です。

実務レベルで求められるのは、単に「あるかないか」を判定するだけでなく、見つかったシートのオブジェクトを即座に操作できる状態にしておくことです。そのため、戻り値をBoolean（真偽値）だけでなく、Worksheetオブジェクトそのものとして返す関数を作成するのが、最も洗練されたアプローチと言えるでしょう。

サンプルコード

以下に、特定の文字列を含むシートの存在を判定し、該当するシートを返す汎用的な関数と、その利用例を示します。


' 特定の文字列を含むシートを検索し、存在すればそのオブジェクトを返す関数
' 引数 targetName: 検索したい文字列
' 戻り値: 見つかった場合はWorksheetオブジェクト、見つからない場合はNothing
Function GetSheetByPartialName(ByVal targetName As String) As Worksheet
    Dim ws As Worksheet
    
    ' 全てのシートをループ
    For Each ws In ThisWorkbook.Worksheets
        ' InStr関数で大文字小文字を区別せず検索（vbTextCompare）
        If InStr(1, ws.Name, targetName, vbTextCompare) > 0 Then
            Set GetSheetByPartialName = ws
            Exit Function
        End If
    Next ws
    
    ' 見つからない場合はNothingを返す
    Set GetSheetByPartialName = Nothing
End Function

' 利用例：メインプロシージャ
Sub ExampleUsage()
    Dim targetWs As Worksheet
    Dim searchStr As String
    
    searchStr = "売上データ"
    
    ' 関数を呼び出し
    Set targetWs = GetSheetByPartialName(searchStr)
    
    ' 判定と処理
    If Not targetWs Is Nothing Then
        MsgBox "シート「" & targetWs.Name & "」が見つかりました。"
        targetWs.Activate
    Else
        MsgBox "「" & searchStr & "」を含むシートは存在しません。"
    End If
End Sub

実務アドバイス

実務における判定処理では、以下の3つのポイントを意識することで、コードの品質が劇的に向上します。

1. 大文字・小文字・全角・半角の扱い
Excelの検索機能は、時に全角・半角を同一視する場合がありますが、VBAのInStr関数は厳密です。もしユーザー入力値によって検索を行う場合は、StrConv関数を用いて入力を正規化してから判定を行うか、vbTextCompareを指定して比較の柔軟性を確保してください。

2. ループ処理の効率化
ブック内のシート数が数百を超えるような特殊なケースでは、ループ処理の回数がパフォーマンスに影響することがあります。とはいえ、通常の業務で扱うシート数であればループによる速度低下は無視できるレベルです。それよりも、ループ内で不要な処理（セルの値を取得するなど）を行わないよう、「判定のみ」に徹した関数設計を心がけてください。

3. 類似したシート名への対処
「売上」という文字列で検索した際、「売上2023」と「売上2024」の両方が存在すると、最初の1つしか取得できません。もし「特定の文字列を含むすべてのシートを処理したい」という要件がある場合は、戻り値をWorksheetオブジェクトではなく、Collectionオブジェクトに変更し、見つかったものをすべて格納して返すように設計を拡張してください。

まとめ

特定の文字列を含むシートの存在判定は、VBAにおける「エラーハンドリングの第一歩」です。安易にエラーを無視するコードを書くのではなく、今回紹介したような「関数化」によるロジックの分離を行うことで、後から読み返した際にも意図が明確で、修正の容易なコードを維持することができます。

プロのエンジニアは、常に「失敗すること」を前提にコードを書きます。シートが存在しない場合、あるいは複数存在する場合など、あらゆる境界条件を想定した設計こそが、自動化ツールを「動くもの」から「信頼できる業務資産」へと昇華させるのです。今日からぜひ、この汎用関数を自身のライブラリに組み込み、より強固なVBA開発の基盤を築いてください。