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
こんな記事も書いています