一个工作表中隐藏的多个表格，怎么样一次性取消隐藏？

对于Excel工作簿中隐藏的多个工作表，需要一次性取消隐藏，只能通过VBA的方式来实现，否则只能一个一个地取消隐藏，虽然可以通过改变Excel自定义视图的方式来进行切换，但实际上并没有取消隐藏工作表。

现在因为Excel2016有了新的功能Power Query、Power Pivot等（Excel2010或Excel2013可到微软官方下载相应的插件），对数据的自动化处理和分析等的支持有了巨大的提升，因此，我已经很久没有写VBA代码了。

不过，对于诸如批量隐藏和取消隐藏工作表等的操作，还是必须用VBA，而且，这个批量取消隐藏工作表的代码实在太简单，如下所示：

Sub Unhide()

Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets

sht.Visible = xlSheetVisible

Next

End Sub