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

发布网友发布时间：2022-02-27 15:08

共4个回答

热心网友时间：2022-02-27 16:37

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

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

热心网友时间：2022-02-27 17:55

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

热心网友时间：2022-02-27 19:30

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

Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Next

End Sub

热心网友时间：2022-02-27 21:21

追问你这是隐藏行和列的情况，不是隐藏表本身的解决方法。