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

Author Siluvia Last modified 2025-08-26

特定の命名基準に基づいて、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」で始まるワークシートの数：

A screenshot showing the VBA result for counting sheets that start with 'KTE' in Excel

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

A screenshot showing the VBA result for counting sheets that contain 'KTE' in Excel

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

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

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

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

A screenshot showing the Navigation option on Kutools tab in Excel

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

A screenshot showing the Navigation pane in Excel with filtered worksheet list

Kutools for Excel - 必要なツールを300以上搭載し、Excelの機能を大幅に強化します。永久に無料で利用できるAI機能もお楽しみください！今すぐ入手

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数