Execl 隐藏所有Sheet （转）

工作簿中隐藏了大量的工作表，一个一个取消隐藏很慢很麻烦，有没有快速取消隐藏的方法？

自己找到答案了：
第一步、打开你的工作簿（自然，这个工作簿隐藏了很多个工作表的，你想一次性显示他们）。
第二步、按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

追问

异曲同工。

回答

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

追问

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

回答

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