特定のテキストを含む名前のシートをワークブックから削除するにはどうすればよいですか？

複数のワークシートを含むワークブックがあり、タブ名に基づいてシートを削除したいとします。例えば、シート名に「KTE」という特定のテキストが含まれている場合、そのシートを削除し、次のスクリーンショットのようにします。特定のテキストを含む名前を持つシートを一度に削除するには、どのようにすればよいでしょうか？一つずつ削除せずに済む方法はありますか？

VBAコードを使用して特定のテキストを含むシートを削除する

VBAコードを使用して特定のテキストを含むシートを削除する

ここでは、名前でシートを削除するためのVBAコードを作成しますので、以下の手順を行ってください：

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

2. 「挿入」>モジュールをクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード: 特定のテキストを含むシートを削除する

Sub Deletebyname()
'Updateby Extendoffice
    Dim shName As String
    Dim xName As String
    Dim xWs As Worksheet
    Dim cnt As Integer
    shName = Application.InputBox("Enter the specific text:", "Kutools for Excel", _
                                    ThisWorkbook.ActiveSheet.Name, , , , , 2)
    If shName = "" Then Exit Sub
    xName = "*" & shName & "*"
'    MsgBox xName
    Application.DisplayAlerts = False
    cnt = 0
    For Each xWs In ThisWorkbook.Sheets
        If xWs.Name Like xName Then
            xWs.Delete
            cnt = cnt + 1
        End If
    Next xWs
    Application.DisplayAlerts = True
    MsgBox "Have deleted" & cnt & "worksheets", vbInformation, "Kutools for Excel"
End Sub

3. そして、F5キーを押してこのコードを実行すると、指定したテキストに基づいて削除するシートタブを入力するように促すダイアログボックスが表示されます。スクリーンショットをご覧ください：

4. 「OK」をクリックすると、指定されたテキスト「KTE」を含むすべてのシートが一度に削除されます。スクリーンショットをご覧ください：

Kutools AIでExcelの魔法を解き放つ

• スマート実行: セル操作、データ分析、グラフ作成を簡単なコマンドで行います。
• カスタム数式: ワークフローを合理化するための独自の数式を生成します。
• VBAコーディング: 簡単にVBAコードを作成し実装します。
• 数式の解釈: 複雑な数式を簡単に理解できます。
• テキスト翻訳: スプレッドシート内の言語障壁を取り除きます。

AI搭載ツールでExcelの機能を強化しましょう。今すぐダウンロードして、かつてないほどの効率を体験してください！