[已解决]工作薄有N个工作表，怎么可以不用循环从第二个到最后一个一次性删除。

王永峰

工作薄有N个工作表，怎么可以不用循环从第二个到最后一个一次性删除。N是变化的，用变量表示

最佳答案

月排行榜 / 总排行榜

csmctjg

2013-6-1 10:05

1. Sub aa()
   
2.     Application.DisplayAlerts = False
   
3.     Sheets(Application.Transpose(Evaluate("=row(2:" & Sheets.Count & ")"))).Delete
   
4.     Application.DisplayAlerts = True
   
5. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

这样估计有点难啊。不用循环的话。

csmctjg

1. Sub aa()
   
2.     Application.DisplayAlerts = False
   
3.     Sheets(Application.Transpose(Evaluate("=row(2:" & Sheets.Count & ")"))).Delete
   
4.     Application.DisplayAlerts = True
   
5. End Sub

复制代码

王永峰

csmctjg 发表于 2013-6-1 10:05

能解释一下代码的意思吗？Sheets(Application.Transpose(Evaluate("=row(2:" & Sheets.Count & ")"))).Delete

hwc2ycy

这思路奇了。