我正在尝试删除除前 20 张工作表之外的所有工作表
我有这段代码——我认为它可以工作,但我现在才运行它,它只会删除一些工作表。
Sub DeleteAll()
i = Worksheets.Count
For x = 21 To i
Application.DisplayAlerts = False
Worksheets(x).Delete
Application.DisplayAlerts = True
Next x
End Sub
最佳答案
Do While Worksheets.Count > 20
Worksheets(21).Delete
Loop
关于vba - 删除除前 x 个工作表之外的所有工作表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/18861809/