特定シート削除

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

特定のシート

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします