在excel中，我们有时会把不要的工作表隐藏起来。前面我们介绍过如果批量隐藏多个工作表。

但是如果需要取消隐藏工作表呢？显示逐个去取消隐藏是不科学的

代码放在模块中，运行一下这个自定义函数，即可隐藏和取消隐藏工作表了。

Sub 取消隐藏()     For x = 1 To Sheets.count         If Sheets(x).Name <> "sheet14" Then             Sheets(x).Visible = -1         End If     Next x End Sub Sub 隐藏()     For x = 1 To Sheets.count         If Sheets(x).Name <> "sheet14" Then             Sheets(x).Visible = 0         End If     Next x End Sub

效果图：