excel表中多个工作表一个也不见了,excel多个工作表只显示当前一个表

3.在模块1（代码）编辑窗口中输入如下代码：

Sub 取消工作表隐藏()

Dim sht As Worksheet

'定义变量

For Each sht In Worksheets

'循环工作簿里的每一个工作表

sht.Visible = xlSheetVisible

'将工作表的状态设置为非隐藏

Next

End Sub

4.代码输入完毕后，单击VBA编辑器窗口上方的“运行子过程／用户窗体”按钮（方向向右的绿色三角形）运行代码。

5.返回工作表，可见窗口下方多了“表2”到“表7”六个工作表标签，代表被隐藏的工作表已经全部被显示出来了。