Excelで特定の名前のワークシートを数える方法は？

名前が特定の単語で始まる、または特定の単語を含むワークシートの数を数えようとしたことがありますか？ たとえば、名前が「KTE」で始まる、または「KTE」を含むワークシートの数を数えます。 この記事では、問題を示すのに役立つ方法を提供します。

VBAコードで特定の名前のワークシートを数える
シート名に特定の単語が含まれているすべてのワークシートをすばやく見つける

VBAコードで特定の名前のワークシートを数える

次のVBAコードは、ワークブック内の特定の名前のワークシートの数を数えるのに役立ちます。 次のようにしてください。

1。 プレス 他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に、以下の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

Note: 「KTE」という単語を、ワークシートの数をカウントするのに必要な単語に置き換えてください。

3。 プレス F5 キーを押してコードを実行します。 次に、ダイアログ ボックスがポップアップ表示され、現在のワークブック内に「KTE」で始まるワークシート、または「KTE」を含むワークシートが何枚あるかが表示されます。 スクリーンショットを参照してください:

名前が「KTE」で始まるワークシートの数:

名前に「KTE」を含むワークシートの数:

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

このセクションでは、Kutools for Excelを使用して、シート名に特定の単語を含むすべてのワークシートをすばやく検索する方法を示します。

Kutools for Excel ：300以上の便利なExcelアドインで、 30日以内に制限なしで無料でお試しいただけます.

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

2。 の中に ワークブックとシート ナビゲーション ペインのセクションで、 フィルタ ボックスに、ワークシートを検索するときに使用する特定のワークシート名を入力します。 次に、名前に特定の単語が含まれるすべてのワークシートがフィルタリングされ、ワー​​クシート リスト ボックスにリストされます。 スクリーンショットを参照してください:

関連記事：

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