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

alex-ww · 发表于 2011-12-7 09:18

本帖最后由 alex-ww 于 2011-12-7 10:00 编辑

因工作簿内有1000多个工作表，打开非常慢，因此要删掉一些，但因设置了目录隐藏，选择工作表一个一个删，太麻烦，不知各位有没有更好的方法，比如要从附件内删除sheet1、sheet2、sheet3工作表全部一次性删除掉，只保留sheet4，如何做？真的很急啊！

包材类.rar (18.2 KB, 下载次数: 24)

crf1103 · 发表于 2011-12-7 09:26

选择全部工作表然后按CTRL再选择你要留下来的表，其它的就可以一次性删除了

alex-ww · 发表于 2011-12-7 10:03

crf1103 发表于 2011-12-7 09:26
选择全部工作表然后按CTRL再选择你要留下来的表，其它的就可以一次性删除了

主要是sheet1,sheet2,sheet3是隐藏的，只有在目录工作表中才可以点开，所以删起来很麻烦。你看下附件就知道了！

mioswald · 发表于 2011-12-7 10:13

好像只有先取消隐藏吧，我之前做过，隐藏了3个表，先把隐藏的表取消隐藏了再来删。如果你1000多个表都隐藏了。。。。只有同求高招了。。。

alex-ww · 发表于 2011-12-7 10:17

mioswald 发表于 2011-12-7 10:13
好像只有先取消隐藏吧，我之前做过，隐藏了3个表，先把隐藏的表取消隐藏了再来删。如果你1000多个表都隐藏了 ...

谢谢你的回复，跪求大虾出现！！！

zhaogang1960 · 发表于 2011-12-7 10:50

短信收到，请测试：

Sub Macro1()
Dim sh As Worksheet
Application.DisplayAlerts = False
For Each sh In Sheets
If sh.Visible <> xlSheetVisible Then If sh.Name <> "Sheet4" Then sh.Delete
Next
Application.DisplayAlerts = True
End Sub

复制代码

crf1103 · 发表于 2011-12-7 11:13

本帖最后由 crf1103 于 2011-12-7 11:17 编辑

Sub zf() '批量取消工作表隐藏
Dim sh As Object
For Each sh In Worksheets
      If sh.Name <> "1" Then '加判断条件进行选择性取消隐藏
      sh.Visible = -1
      End If
Next
End Sub

运行就可以了  已经试过了！完全可以

crf1103 · 发表于 2011-12-7 11:22

请参照6楼 zhaogang1960 版主的代码这个代码强大选择你要留下来的运行代码其它的就全部没删除了！
向版主学习！

alex-ww · 发表于 2011-12-7 11:24

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

原来的代码要不要删除

alex-ww · 发表于 2011-12-7 11:29

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

直接写在之前的代码下面吗？

		自动登录	找回密码
密码			免费注册

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

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