Sub 批量删除表高级版() '批量删除worksheet,在只知道worksheets的name时    Dim x As Integer    Application.DisplayAlerts = False        For x = Worksheets.Count To 1 Step -1        If Worksheets(x).Name = "数据" Then Exit For  '遇到worksheets("数据")就停止        Worksheets(x).Delete            Next        Application.DisplayAlerts = True End Sub