excel - 删除名称中包含单词 "sheet"的任何工作表而不发出警告

Question

我这里有一小段 VBA 代码，它在没有警告的情况下删除了名为“Sheet1”的工作表。我希望我的代码在不发出警告的情况下删除名称中包含“Sheet”一词的任何工作表(例如:1000Sheet、10Sheet、Sheet2、Sheet3…Sheet1000…)

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