EXCEL求个批量删除工作簿中Q1="请删除此表"的工作表的VBA。

也就是说，这个工作簿中有很多工作表，其中有一些工作表的Q1单元格是“请删除此表”，求个VBA一次性把这些工作表删除，保留Q1不是“请删除此表”的工作表。

Sub eraseSheet()
Dim i!, Alert As Boolean
Alert = Application.DisplayAlerts
Application.DisplayAlerts = False
For i = Sheets.Count To 1 Step -1
    If Sheets(i).Range("Q1") = "请删除此表" Then Sheets(i).Delete
Next
Application.DisplayAlerts = Alert
End Sub

Sub 删表()     Dim i As Worksheet     Application.DisplayAlerts = False     #避免出现提示“确认删除”     For Each i In Worksheets         If i.Range("Q1").Text = "请删除此表" Then i.Delete     Next     Application.DisplayAlerts = True End Sub

Sub 删除() For Each sh In Sheets If sh.Range("Q1") = "请删除此表" Then sh.Delete Next End Sub 再看看别人怎么说的。

Sub sc() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Worksheets If sh.Range("q1") = "请删除此表" Then sh.Delete Next Application.DisplayAlerts = True End Sub