每月都会做很多管理报告等，但是很多表格更新完数据后，都会隐藏起来，免得工作簿看起来很乱，但是下月更新的时候又得一个一个的取消隐藏。wps和365是可以指定取消多个工作表的，但我们没有使用这两版本的同学就比较麻烦了。

Sub 取消隐藏() Dim sht As Worksheet For Each sht In Worksheets sht.Visible = xlSheetVisible Next End Sub

代码很简单，但是也是补充一个小功能，挺实用。