ワークブックに存在する場合、特定のシートを削除するにはどうすればよいですか？

ワークブック内に特定のワークシートが存在する場合、それを削除するにはどうすればよいでしょうか？ 通常、その存在を確認してから手動で削除する必要があります。ここでは、Excelファイル内に存在する場合、指定されたワークシートを直接簡単に削除する方法について説明します。

VBAコードを使用して、ワークブックに存在する場合に特定のワークシートを削除する

VBAコードを使用して、ワークブックに存在する場合に特定のワークシートを削除する

次のVBAコードは、ワークブック内に存在する場合に指定されたワークシートを削除するのに役立ちます。以下の手順を行ってください：

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

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

VBAコード: ワークブック内に存在する場合に特定のワークシートを削除する

Sub Test()
'Updateby Extendoffice
    Dim xWs As Worksheet
    Dim sheetName As String
    sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
                                    "sheet1", , , , , 2)
    Application.DisplayAlerts = False
    Err.Clear
    On Error Resume Next
    Set xWs = Sheets(sheetName)
    If Err <> 0 Then
        MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
        Exit Sub
    Else
        xWs.Delete
        MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
    End If
    Application.DisplayAlerts = True
End Sub

3. 次に、このコードを実行するために F5キーを押すと、目的のシート名を入力するように促すボックスが表示されます。スクリーンショットをご覧ください：

4. その後、「OK」ボタンをクリックします：

(1.) シートが存在する場合、すぐに削除されます。スクリーンショットをご覧ください：

(2.) シートが存在しない場合、次のスクリーンショットに示すように、通知ボックスが表示されます：

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

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

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