excel - 通过宏删除工作表

Question

我正在尝试删除除第一张表之外的所有表，但我得到一个

error 9 "subscript out of range" appears.

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

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 都会从 Worksheets 的这张工作表中删除它，并且总工作表数将减 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