Excel办公技巧：隐藏的多张工作表如何快速批量显示出来？

应用场景

下图工作簿中一共有七张工作表，目前只显示了第一张工作表“表1”，还有六张工作表“表2”至“表7”被隐藏。这篇文章就跟大家分享如何利用VBA代码将隐藏的六张工作表批量显示出来。

操作步骤

1.单击窗口上方“开发工具”选项卡“代码”功能组中的“Visual Basic”按钮，打开VBA编辑器窗口。

2.执行“插入”—“模块”命令，此时在窗口左侧列表中会增加一个用于存放编写代码的“模块1”，同时在右侧会看到模块1（代码）编辑窗口。　

3.在模块1（代码）编辑窗口中输入如下代码：

Sub 取消工作表隐藏()

Dim sht As Worksheet

'定义变量

For Each sht In Worksheets

'循环工作簿里的每一个工作表

sht.Visible = xlSheetVisible

'将工作表的状态设置为非隐藏

Next

End Sub

4.代码输入完毕后，单击VBA编辑器窗口上方的“运行子过程／用户窗体”按钮（方向向右的绿色三角形）运行代码。

5.返回工作表，可见窗口下方多了“表2”到“表7”六个工作表标签，代表被隐藏的工作表已经全部被显示出来了。

#职场技能#

以上内容由优质教程资源合作伙伴 “鲸鱼办公” 整理编辑，如果对您有帮助欢迎转发分享！

你可能对这些文章感兴趣：

• Excel表格十大函数(Excel表格函数公式出现错误怎么办?)
• 对不起！忘了告诉你如何激活win10LTSC版，比windows7流畅干净
• Mac新手使用技巧——Mac音量调节
• 新入手的iPhone 13，记得提前打开这5个功能，让手机更好用
• iPhone状态栏中怎么显示图标 状态栏爱心等图标设置方法
• iphone应用图标大小要怎么调整？(iPhone应用图标大小)
• 有办法了！批量删除多个Word页眉页脚
• Excel常用函数知识：使用RANK.EQ或RANK.AVG函数进行排名计算
• RANKIF？Excel中有这个函数吗？
• 手机与和U盘的连接及文件操作(手机直接连接u盘为什么不能互传文件)