Excel通过宏一键自动取消所有隐藏工作表

平时的汇报工作中,经常会隐藏工作底稿的工作Sheet,仅显示汇报工作表。

在后续数据维护或者数据勾稽过程中,可能需要取消隐藏工作表。

如果涉及的工作表较多,一个一个手工取消隐藏的话,非常影响工作效率。

这里提供一个宏代码,可以实现一键自动取消所有隐藏的工作表。

代码如下:

Sub qxyc()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next
End Sub

使用方法:

  1. 打开Excel,在工作表页签右键,选择”查看代码“;
  2. 在弹出的窗口最上方菜单,依次选择”插入-模块“,复制粘贴以上代码,保存;
  3. 选择你要创建超链接目录的工作表,点击代码窗口顶部菜单的”运行“;
  4. 接下来就是见证奇迹的时刻。
本文由 @LAzySheep 发布。如若转载,请注明出处: 科技玩家 » Excel通过宏一键自动取消所有隐藏工作表
Office

Excel通过宏自动创建工作表超链接目录

2021-3-4 10:01:00

Office

如何在Word中输入”方框打勾☑️“?

2021-5-22 16:25:13

4 条回复 A文章作者 M管理员
  1. 大大的强

    进来了解一下。

  2. nikoyy

    感谢分享,很不错

  3. popp

    感谢分享

  4. kiwi

    这个不错的

个人中心
今日签到
有新私信 私信列表
搜索