VBA删除名称不包含单词“工作表”的任何工作表，而不会发出警告

Question

我这里有一小段VBA代码，它无需警告就删除了名为“ Sheet1”的工作表。我想要我的代码执行的操作是在不警告任何名称为单词“ Sheet”的工作表的情况下删除它（例如：1000Sheet，10Sheet，Sheet2，Sheet3…Sheet1000…）

非常感谢Xavi

Sub ActShtDel()
Application.DisplayAlerts = False
 Sheets("Sheet1").Delete
Application.DisplayAlerts = True
End Sub

Answer 1

您需要遍历所有工作表，检查名称是否包含“ Sheet”，如果是，则删除有问题的工作表。这应该做你需要的

Sub ActShtDel()
Dim ws
Application.DisplayAlerts = False
For Each ws in ThisWorkbook.Worksheets
    If InStr(ws.Name, "Sheet") > 0 Then
        ws.Delete
    End If
Next
Application.DisplayAlerts = True
End Sub