参考元:【VBA】シートの削除方法まとめ【強制的に削除する、条件を指定する】
https://daitaideit.com/vba-sheet-delete/
Sub TEST2()
Application.DisplayAlerts = False 'メッセージを非表示
ActiveSheet.Delete 'シートを削除
Application.DisplayAlerts = True 'メッセージを表示
End Sub
条件に一致するシートを削除
シートの存在を確認してシートを削除
Sub TEST5()
Dim A
For Each A In Sheets
'シートが存在する場合
If A.Name = "Sheet2" Then
Application.DisplayAlerts = False
A.Delete 'シートを削除
Application.DisplayAlerts = True
End If
Next
End Sub
部分一致したシートを削除
Sub TEST6()
Dim A
For Each A In Sheets
'シート名に「2」を含む場合
If InStr(A.Name, "2") > 0 Then
Application.DisplayAlerts = False
A.Delete 'シートを削除
Application.DisplayAlerts = True
End If
Next
End Sub
标签:VBA,End,Sub,Application,DisplayAlerts,強制,削除
From: https://www.cnblogs.com/langQ/p/18445039