VBAでシートを削除する方法を徹底解説｜初心者でも安心のサンプル付き

Excelを操作するうえで、VBAを使ってシートを自動的に削除したい場面は多くあります。たとえば、マクロでレポートを自動生成した後、不要なテンプレートシートを削除したり、特定の名前のシートだけを残して他は消したりといった用途です。
本記事では、VBA初心者の方にもわかりやすく、シートを削除する基本的な方法から、削除時の注意点、よくあるエラーと対処法、実践的なサンプルコードまで、丁寧に解説していきます。

VBAでシートを削除する基本コード
複数シートを一括で削除する方法
すべてのシートを削除して新しいシートだけ残す方法
削除前に存在チェックを入れる方法
削除操作時の注意点とよくあるトラブル
シート削除処理の活用シーン
まとめ

VBAでシートを削除する基本コード

VBAでシートを削除する際にもっともシンプルなコードは以下のようなものです。

Sub DeleteSheet()
    Application.DisplayAlerts = False
    Sheets("削除したいシート名").Delete
    Application.DisplayAlerts = True
End Sub

このコードでは、「削除したいシート名」の部分を実際に削除したいシートの名前に変更するだけで削除できます。DisplayAlerts = False にしているのは、削除確認メッセージを表示させないためです。確認メッセージがあると自動処理の邪魔になりますので、スムーズに処理したい場合は設定しておくと便利です。

複数シートを一括で削除する方法

特定の複数のシートをまとめて削除したい場合は、以下のようにループを使って処理します。

Sub DeleteMultipleSheets()
    Dim sheetName As Variant
    Dim sheetList As Variant

    sheetList = Array("Sheet1", "Sheet2", "Sheet3")

    Application.DisplayAlerts = False
    For Each sheetName In sheetList
        On Error Resume Next
        Sheets(sheetName).Delete
        On Error GoTo 0
    Next sheetName
    Application.DisplayAlerts = True
End Sub

この方法で、配列に含めた複数のシート名を一括で削除できます。存在しないシート名が含まれていても On Error Resume Next によってエラーで止まることはありません。

すべてのシートを削除して新しいシートだけ残す方法

ブックの中で必要な1枚だけを残し、他のすべてのシートを削除することも可能です。

Sub DeleteAllExceptOne()
    Dim ws As Worksheet
    Dim keepSheet As String
    keepSheet = "残したいシート名"

    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> keepSheet Then
            ws.Delete
        End If
    Next ws
    Application.DisplayAlerts = True
End Sub

このコードでは「残したいシート名」以外のシートをすべて削除します。テンプレートから新しいデータを作成するときによく使われる処理です。

削除前に存在チェックを入れる方法

削除対象のシートが存在しない場合にエラーになるのを防ぐため、事前に存在チェックを入れる方法もおすすめです。

Function SheetExists(sheetName As String) As Boolean
    Dim ws As Worksheet
    SheetExists = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name = sheetName Then
            SheetExists = True
            Exit Function
        End If
    Next ws
End Function

Sub DeleteSheetIfExists()
    Dim targetSheet As String
    targetSheet = "削除対象シート"

    If SheetExists(targetSheet) Then
        Application.DisplayAlerts = False
        Sheets(targetSheet).Delete
        Application.DisplayAlerts = True
    Else
        MsgBox "シート '" & targetSheet & "' は存在しません。"
    End If
End Sub