Excel如何批量取消隐藏工作表

问题：批量隐藏那是超级简单啦，要想通过右键取消隐藏，只能苦苦的一个一个取消，那真是太没效率了，明明一分钟的事，笨方法可能要一个小时完成。简便方法如下：方法：高大上的VBA闪亮登场了Step1：打开VBA界面（ALT+F11）——插入——模块Step2：录入代码Sub ShowSht（）
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = -1
Next sht
End SubStep3：运行VBA（F5）——关闭VBA编辑器