Excel VBAで特定のシートの存在を確認し、あったら削除する

Excelのシートがいくつもあって、特定のシートがあるかどうか調べて、あった場合は削除する時の方法です。

< スポンサーリンク >

 

下図のように「Sheet1」「4月」「5月」「6月」「7月」のようにシートがあるとします。

特定のシート

 

「6月」のシートがあるかどうか調べて、ある場合は「ある」とメッセージを出します。

Sub test()
    Dim ws As Worksheet
    Dim flag As Boolean

    For Each ws In Worksheets
      If ws.Name = "6月" Then
        flag = True
      End If
    Next ws

    If flag = True Then
        MsgBox "ある"
    Else
        MsgBox "ない"
    End If
End Sub

特定のシート

 

「6月」のシートがあるかどうか調べて、ある場合はそのシートを削除します。

Sub test()
    Dim ws As Worksheet

    For Each ws In Worksheets
      If ws.Name = "6月" Then
        ws.Delete
      End If
    Next ws
End Sub

特定のシート

 

< スポンサーリンク >



サブコンテンツ

このページの先頭へ