[已解决]如何删除第2-10个工作表

lingyuncelia1

某工作簿有10个工作表，要删除第2-10个工作表，如何改善以下代码？
Sub fish()
Application.DisplayAlerts = False
For i = 2 To 10
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

最佳答案

月排行榜 / 总排行榜

yorkchenshunan

2016-3-24 15:20

1. Sub fish()
   
2. Application.DisplayAlerts = False
   
3. For i = 10 To 2 step -1
   
4. Sheets(i).Delete
   
5. Next
   
6. Application.DisplayAlerts = True
   
7. End Sub

复制代码

or

1. Sub fish()
   
2. Application.DisplayAlerts = False
   
3. For i = 2 To 10
   
4. Sheets(2).Delete
   
5. Next
   
6. Application.DisplayAlerts = True
   
7. End Sub

复制代码

跳转到最佳答案楼层

yorkchenshunan

1. Sub fish()
   
2. Application.DisplayAlerts = False
   
3. For i = 10 To 2 step -1
   
4. Sheets(i).Delete
   
5. Next
   
6. Application.DisplayAlerts = True
   
7. End Sub

复制代码

or

1. Sub fish()
   
2. Application.DisplayAlerts = False
   
3. For i = 2 To 10
   
4. Sheets(2).Delete
   
5. Next
   
6. Application.DisplayAlerts = True
   
7. End Sub

复制代码

lingyuncelia1

Sub 批量删除工作表()
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

lingyuncelia1

yorkchenshunan 发表于 2016-3-24 15:20
or

Sub fish()
Application.DisplayAlerts = False
For i = 2 To 10
Sheets(2).Delete
Next
Application.DisplayAlerts = True
End Sub
大侠，为什么是2 to 10,不是1 to 9?虽然经实验证明，2  to 10也是可以的。

yorkchenshunan

lingyuncelia1 发表于 2016-3-24 15:36
Sub fish()
Application.DisplayAlerts = False
For i = 2 To 10

这个无所谓吧，这里的for仅仅只要是满足循环次数=sheets.count-1次就行了，与i的具体值是多少并无关系

lingyuncelia1

yorkchenshunan 发表于 2016-3-24 15:40
这个无所谓吧，这里的for仅仅只要是满足循环次数=sheets.count-1次就行了，与i的具体值是多少并无关系

原来如此，谢谢赐教