[已解决]如何改代码，使工作表的名称除了，“表一”和“表二”之外的工作表，其他工作表都...

新一

如何改代码，使工作表的名称除了，“表一”和“表二”之外的工作表，其他工作表都进行删除。谢谢

最佳答案

月排行榜 / 总排行榜

xdragon

2014-8-25 21:00

1. Sub a()
   
2. Dim sht As Worksheet
   
3. Application.DisplayAlerts = False
   
4. For Each sht In Worksheets
   
5. If sht.Name <> Sheets("表一").Name And sht.Name <> Sheets("表二").Name Then
   
6. sht.Delete
   
7. End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub a()
   
2. Dim sht As Worksheet
   
3. Application.DisplayAlerts = False
   
4. For Each sht In Worksheets
   
5. If sht.Name <> Sheets("表一").Name And sht.Name <> Sheets("表二").Name Then
   
6. sht.Delete
   
7. End If
   
8. Next
   
9. Application.DisplayAlerts = True
   
10. End Sub

复制代码

新一

谢谢老师{:011:}

su45

学委厉害吧，十多分钟就给你搞定了！