通过macros删除工作表

我试图删除第一张表以外的所有表格，但是我得到了一张

出现错误9“下标超出范围”。

我该如何解决？ 提前致谢。

Dim Udalenie As Integer If ThisWorkbook.Worksheets.Count > 1 Then For Udalenie = 2 To ThisWorkbook.Worksheets.Count ThisWorkbook.Sheets(Udalenie).Delete Next Udalenie End If 

Answer 1

因为每次删除一张工作表时，Excel将从工作表中的该工作表中删除它，总页数将减1。

 Dim Udalenie As Integer If ThisWorkbook.Worksheets.Count > 1 Then For Udalenie = 2 To ThisWorkbook.Worksheets.Count ThisWorkbook.Sheets(2).Delete Next Udalenie End If