急求 因文件太大，如何同时删除多张隐藏工作表

crf1103

alex-ww 发表于 2011-12-7 11:29
直接写在之前的代码下面吗？

不用管原的代码    空几行直接写就行了

alex-ww

crf1103 发表于 2011-12-7 11:13
Sub zf() '批量取消工作表隐藏
    Dim sh As Object
    For Each sh In Worksheets

最好能一步步显示，我VBA很菜

alex-ww

crf1103 发表于 2011-12-7 11:22
请参照6楼 zhaogang1960 版主的代码  这个代码强大   选择你要留下来的   运行代码 其它的就全部没删除了！ ...

如何我要选择留下的工作表都在10个以上怎么办？

alex-ww

alex-ww 发表于 2011-12-7 11:38
如何我要选择留下的工作表都在10个以上怎么办？

比如有sheet1到sheet10 拾个工作表，要删除sheet1、sheet3、sheet5等工作表，我有1000多个表，不会在代码里一个个填吧？

crf1103

alex-ww 发表于 2011-12-7 11:29
直接写在之前的代码下面吗？

下面的是我在坛子上找来的  你参考一下
Sub 删除表()
'只保留“目录”、“Sheet2”、两个工作表
Dim ash As Worksheet
Application.DisplayAlerts = False
For Each ash In ThisWorkbook.Worksheets
MsgBox ash.Name
If ash.Name = "目录" Or ash.Name = "Sheet2" Then
Else
ash.Delete
End If
Application.DisplayAlerts = True
Next
End Sub

alex-ww

crf1103 发表于 2011-12-7 12:12
下面的是我在坛子上找来的  你参考一下
Sub 删除表()
'只保留“目录”、“Sheet2”、两个工作表

能不能修改成删除指定某个工作表之后的所有工作表，例如指定删除sheet3之后的工作表？

yuchaomin88

好像不行，我试了我一个54M的表格，瘦不了身啊！

xyinside

zhaogang1960 发表于 2011-12-7 10:50
短信收到，请测试：

批量删除隐藏工作表测试有效!

wintroop

alex-ww 发表于 2011-12-7 11:38
如何我要选择留下的工作表都在10个以上怎么办？

1个工作簿内1000多个表，只保留10个表吗？
按住ctrl选中这10个表——>移动或复制 ——>(新工作簿)