Question

我试图删除除第一张纸之外的所有纸张，但我得到了

错误9＆＃34;下标超出范围＆＃34;出现。

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

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

按宏删除工作表

1 个答案: