Excelで特定の名前を持つワークシートを数えるにはどうすればよいですか？

特定の命名基準に基づいて、Excelワークブック内のワークシートの数を数えたことはありますか？例えば、「KTE」という単語で始まる、またはそれを含むワークシート名です。このガイドでは、VBAコードとKutools for Excelの強力な機能を使用して、要件を満たすワークシートを簡単に数えたりフィルタリングしたりする方法を紹介します。

VBAコードを使用して特定の名前を持つワークシートを数える
シート名に特定の単語が含まれるすべてのワークシートを素早く見つける

VBAコードを使用して特定の名前を持つワークシートを数える

以下のVBAコードは、ワークブック内で特定の名前を持つワークシートの数を数えるのに役立ちます。次の手順に従ってください。

1. Alt + F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックし、以下のVBAコードをコードウィンドウにコピーします。

VBAコード 1: 「KTE」で始まるワークシートを数える

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If Mid(Sheets(I).Name, 1, 3) = "KTE" Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that start with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

「KTE」を含むワークシートの数を数えたい場合は、以下のVBAコード 2を適用してください。

VBAコード 2: 「KTE」を含むワークシートを数える

Sub CountWSNames()
    Dim I As Long
    Dim xCount As Integer
    For I = 1 To ActiveWorkbook.Sheets.Count
        If InStr(1, Sheets(I).Name, "KTE") > 0 Then xCount = xCount + 1
    Next
    MsgBox "There are " & CStr(xCount) & " sheets that with 'KTE'", vbOKOnly, "KuTools for Excel"
End Sub

注釈: 「KTE」という単語を、ワークシートの数を数えるために使用したいテキストに置き換えてください。

3. F5キーを押してコードを実行します。すると、現在のワークブックで「KTE」で始まる、または「KTE」を含むワークシートの数を知らせるダイアログボックスが表示されます。スクリーンショットをご覧ください：

「KTE」で始まるワークシートの数：

「KTE」を含むワークシートの数：

シート名に特定の単語が含まれるすべてのワークシートを素早く見つける

このセクションでは、Kutools for Excelを使用して、シート名に特定の単語が含まれるすべてのワークシートを素早く見つける方法を紹介します。

1. Kutools for Excelをインストールすると、Kutoolsのナビゲーションペインがワークブックの左側に自動的に開きます。または、下のスクリーンショットのように、Kutools > ナビゲーションをクリックしてペインを有効にすることができます。

2. ナビゲーションペインの「ワークブック & シート」セクションで、フィルターボックスをチェックし、検索したい特定のワークシート名を入力します。その特定の単語を含むすべてのワークシートがフィルタリングされ、ワークシートリストボックスに表示されます。スクリーンショットをご覧ください：

関連記事：

• Excelでセル内にタブ名を参照するにはどうすればよいですか？
• Excelでセル値をシートタブ名と一致させる、またはその逆を行うにはどうすればよいですか？
• Excelでコンボボックスの選択値に基づいて特定のワークシートを開くにはどうすればよいですか？