excel如何取消隐藏多个工作表

可以用VBA来实现这种操作。

需要强调的是，该种操作前提是文档无保护的情况（无密码保护结构），不然会出现出现错误。

按照如下步骤，参考后面截图。

• alt+F11，打开VBE

• 输入如下代码

• 运行（可使用快捷键F5）

  
  

Sub 取消隐藏()
Dim i As Single
For i = 1 To ThisWorkbook.Sheets.Count
Worksheets(i).Visible = True
Next
End Sub

1、首先鼠标放在列标签上，也就是由A到Z那个地方，鼠标指针会变成黑色向下箭头，按住鼠标拖动选中要隐藏的列。

2、然后右键单击被选中的单元格，选择隐藏。

3、这时就会发现C、D两列被取消隐藏了。

4、最后，查看一个效果，当我们选择全部显示视图的时候，原来隐藏的就都出来了，当选择隐藏部分视图的时候，原来的又进行隐藏了。

按住alt依次按f11,i,m粘贴下面的代码后按f5即可全部显示.

Sub test()
For Each sh In ThisWorkbook.Sheets
sh.Visible = True
Next
End Sub

另外可以用视图管理器,在所有工作表显示时创建一个视图.下次只需切换到该视图就可以显示全部工作表.

在工作表标签处右击“选定全部工作表”，然后再取消隐藏，应该就可以吧！你试试！

你试一下这个看看可以不
Sub jac() For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub