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

Question

工作簿中隐藏了大量的工作表，一个一个取消隐藏很慢很麻烦，有没有快速取消隐藏的方法？
自己找到答案了：
第一步、打开你的工作簿（自然，这个工作簿隐藏了很多个工作表的，你想一次性显示他们）。
第二步、按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，都显示了，保存一下即可。

Answer 1

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

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

追问

异曲同工。

追答

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

追问

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

追答

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

Answer 2

在工作表标签上单击右键
查找代码
代码窗口粘贴下面的VBA代码
sub 取消隐藏
for each sh in worksheets
sh.visible=true
next
end sub
然后按F5执行代码本回答被网友采纳

Answer 3

打开VB编辑器，将下面代码复制进去，执行即可。

Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Next

End Sub

Answer 4

追问

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