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

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

VBAコードを含むブックに存在する場合は、特定のワークシートを削除します

---

VBAコードを含むブックに存在する場合は、特定のワークシートを削除します

次のVBAコードは、指定したワークシートがブックに存在する場合に削除するのに役立ちます。次のようにしてください。

1. 押したまま Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュール 窓。

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.）シートが存在しない場合は、次のスクリーンショットのようにプロンプ​​トボックスが表示されます。