怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)

目前只有批量隐藏工作表,

无批量取消隐藏工作表指令。

如果存在大批量的隐藏工作表,

最简单的办法还是使用VBA辅助完成。

6行代码瞬间解决。

怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)(1)

操作演示

快捷键Alt F11激活VBA编辑器

怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)(2)

点击右键,插入一个新模块

怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)(3)

复制下面代码,然后粘贴到新模块中。

Sub Show_All_Sheet()

Dim SheetAll As Worksheet

For Each SheetAll In Worksheets'轮询所有工作表

SheetAll.Visible = True'工作表属性设置为可视

Next SheetAll

End Sub

怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)(4)

快捷键F5激活宏窗口。

点击允许即可。

怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)(5)

注意

笔记本电脑F5功能键可能被占用,需要使用Fn F5

或者使用菜单

怎样取消全部隐藏的工作表(批量取消隐藏的工作簿)(6)


对Excel感兴趣,记得关注。

喜欢就点个赞。

,

免责声明:本文仅代表文章作者的个人观点,与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺,请读者仅作参考,并自行核实相关内容。文章投诉邮箱:anhduc.ph@yahoo.com

    分享
    投诉
    首页