excel中怎样批量取消隐藏工作表

2024-11-14 10:40:24

推荐回答（4个）

回答1：

按键盘上的Alt+F11，调出VBE对话框，然后双击左面的任何一个工作表的名称，然后将下列代码粘贴进去。然后点击工具栏上的绿色按钮运行一次即可。

Sub unhide()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next i
End Sub

回答2：

在工作表标签上单击右键
查找代码
代码窗口粘贴下面的VBA代码
sub 取消隐藏
for each sh in worksheets
sh.visible=true
next
end sub
然后按F5执行代码

回答3：

打开VB编辑器，将下面代码复制进去，执行即可。

Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Next

End Sub

回答4：