Excel VBA取消全部隐藏的工作表

1、首先打开数据表格需要将sheet1以外的表格进行全部隐藏，如下图所示：

2、然后按alt+f11快捷键，打开VBA代码界面，如下图所示：

4、然后在新的模块里输入如下代码：Sub 打开全部隐藏工作表()Dim i As 诔罨租磊IntegerFor i = 1 To Sheets.Count Sh髫潋啜缅eets(i).Visible = TrueNext iEnd Sub，如下图所示：

6、找到对应的命令，单击执行按钮，如下图所示：