|
如何删除一个工作薄中大量没用的工作表 ,保留其中工作表名为:JS1 JS1 JS3 JS4 JS5 JS6 JS7的工作表
哪位大神指教啊
本帖最后由 这儿有肥猫 于 2014-9-11 21:16 编辑
baoqiangxiao 发表于 2014-9-11 20:26
这个只可以保留一个
保留10个不同的话怎么办啊? - sub 删除()
- Application.ScreenUpdating = False
- Application.DisplayAlerts = False
- Dim arr, brr, i&, sh As Worksheet, s&
- arr = Array("GL105", "JS604", "JS601", "JS602", "JS603", "ZJ802", "JS626", "JS627", "JS111", "ZJ829", "JS628", "ZJ807", "JS614", "JS617", "JS618", "JS107")
- For Each sh In Sheets
- s = 0
- For i = 0 To UBound(arr)
- If InStr(arr(i), sh.Name) Then
- s = s + 1
- End If
- Next
- If s = 0 Then
- sh.Delete
- End If
- Next
- Application.ScreenUpdating = True
- Application.DisplayAlerts = True
- End Sub
复制代码供参考
|
|