excel中怎样批量取消隐藏工作表

工作簿中隐藏了大量的工作表,一个一个取消隐藏很慢很麻烦,有没有快速取消隐藏的方法?
自己找到答案了:
第一步、打开你的工作簿(自然,这个工作簿隐藏了很多个工作表的,你想一次性显示他们)。
第二步、按ALT+F11(或者点击工具-宏-Visual Basic编辑器),出现vb编辑器界面。看左边,有两个框里都有英文字母,看上边一个框里(下面的那个框框不管它)。拉动滚动条,看这个框的最上边,就是你当前文件的名称,实际它的下面就是若干个工作表的名称。
第三步、随意双击一个工作表,就会在右边黑乎乎的窗口里出现一个小窗口。这个窗口的标题就是你的文件名。我们现在就要在这个小窗口里写段代码。写什么呢?看第四步。
第四步、在这个窗口的空白处输入一组代码。代码如下:复制进去即可
Sub quxiao()
For Each i In Sheets
i.Visible = -1
Next
End Sub

第五步、Alt+F11回到Excel ,
第六步、Alt+F8,找到quxiao宏,选中,点击运行,ok,都显示了,保存一下即可。

按键盘上的Alt+F11,调出VBE对话框,然后双击左面的任何一个工作表的名称,然后将下列代码粘贴进去。然后点击工具栏上的绿色按钮运行一次即可。


Sub unhide()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub

追问

异曲同工。

追答

主要是写代码并且弄出图片耽误了点时间,呵呵,结果自己解决了

追问

没关系,好评给你。不过没找到你说的“工具栏上的绿色按钮”

追答

图片的正中央位置,看到么,绿色的三角,就是运行按钮

温馨提示:答案为网友推荐,仅供参考
第1个回答  推荐于2018-02-09
在工作表标签上单击右键
查找代码
代码窗口粘贴下面的VBA代码
sub 取消隐藏
for each sh in worksheets
sh.visible=true
next
end sub
然后按F5执行代码本回答被网友采纳
第2个回答  2015-07-20
打开VB编辑器,将下面代码复制进去,执行即可。

Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Next

End Sub
第3个回答  2013-11-17

追问

你这是隐藏行和列的情况,不是隐藏表本身的 解决方法。

相似回答