[已解决]本人菜鸟 求助 删除没用工作表，保留有用的工作表

baoqiangxiao

大神 帮我写下代码即可  我稍改下即可用了

baoqiangxiao

baoqiangxiao 发表于 2014-9-11 20:16
保留GL105   JS604   JS601 JS602 JS603 ZJ802 JS626 JS627 JS111 ZJ829 JS628 ZJ807 JS614 JS617 JS618  ...

大神 帮我写下代码即可  我稍改下即可用了

baoqiangxiao

Sub 删除()
Dim wk As Worksheet
For Each wk In Sheets
If wk.Name <> "JS107" Then wk.Delete
Next
End Sub
帮我查下这个代码哪有问题

十五的月亮

做个判断删除

baoqiangxiao

十五的月亮 发表于 2014-9-11 20:18
做个判断删除

例如？
我想保留很多啊
可以帮忙写个   大致样子吗    我看看
thanks

这儿有肥猫

baoqiangxiao 发表于 2014-9-11 20:18
Sub 删除()
Dim wk As Worksheet
For Each wk In Sheets

Sub 删除()
Application.DisplayAlerts = False
Dim wk As Worksheet
For Each wk In Sheets
If wk.Name <> "JS107" Then wk.Delete
Next
Application.DisplayAlerts = True
End Sub

baoqiangxiao

这儿有肥猫 发表于 2014-9-11 20:24
Sub 删除()
Application.DisplayAlerts = False
Dim wk As Worksheet

这个只可以保留一个
保留10个不同的话怎么办啊？

这儿有肥猫

baoqiangxiao 发表于 2014-9-11 20:26
这个只可以保留一个
保留10个不同的话怎么办啊？

应该是放入数组，然后instr，有的话保留，没得话delete~

这儿有肥猫

baoqiangxiao 发表于 2014-9-11 20:26
这个只可以保留一个
保留10个不同的话怎么办啊？

1. sub 删除()
   
2. Application.ScreenUpdating = False
   
3. Application.DisplayAlerts = False
   
4. 
   
5. Dim arr, brr, i&, sh As Worksheet, s&
   
6. arr = Array("GL105", "JS604", "JS601", "JS602", "JS603", "ZJ802", "JS626", "JS627", "JS111", "ZJ829", "JS628", "ZJ807", "JS614", "JS617", "JS618", "JS107")
   
7. For Each sh In Sheets
   
8. s = 0
   
9. For i = 0 To UBound(arr)
   
10. If InStr(arr(i), sh.Name) Then
    
11. s = s + 1
    
12. End If
    
13. Next
    
14. 
    
15. If s = 0 Then
    
16. sh.Delete
    
17. End If
    
18. Next
    
19. 
    
20. Application.ScreenUpdating = True
    
21. Application.DisplayAlerts = True
    
22. End Sub

复制代码

供参考

这儿有肥猫

不知道为什么代码的格式很奇怪。。。最近网站貌似有问题