excel 批量取消隐藏工作表的两段VBA代码
时间:2023-03-04 15:05:36
一个群友问到如何批量取消隐藏工作表。在一个excel工作薄里隐藏了十几张工作表,想将其取消隐藏,使用excel内置的功能:“格式——工作表——取消隐藏”,只能逐张慢慢取消隐藏工作表,如何批量取消隐藏工作表呢?
要解决批量取消隐藏工作表,就只能使用VBA代码完成。
下面提供两端批量取消隐藏工作表的VBA代码,都可以实现。
批量取消隐藏工作表代码一:
按下"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入——模块".,复制下面的代码,按F5键运行,就完成了批量取消隐藏工作表。
Sub 批量取消隐藏工作表()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Visible = True
Next
End Sub
批量取消隐藏工作表代码二:
Sub 批量取消隐藏工作表()
For Each AA In Sheets
AA.Visible = True
Next
End Sub
两段代码使用任意一段都可以批量取消隐藏工作表。
excel 批量取消隐藏工作表的两段VBA代码的下载地址:
标签:excel批量取消隐藏工作表
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Win10电脑Steam社区错误代码118怎么办?
2023-08-18 20:33:09
![](https://img.aspxhome.com/file/2023/26/a220055_0s.jpg)
win10的ip地址在哪里修改?win10的ip地址设置操作方法
2023-10-09 04:52:25
![](https://img.aspxhome.com/file/2023/28/a240211_0s.jpg)
XP系统下如何安装传真机 XP系统安装传真机的详细步骤[图文教程]
2022-05-08 06:08:33
![](https://img.aspxhome.com/file/2023/28/a246652_0s.jpg)
Win7旗舰版电脑关机后自动重启怎么办?
2023-03-30 09:45:10
![](https://img.aspxhome.com/file/2023/1/a283250_0s.png)
自动给Word文档统一加密的办法
2022-03-16 23:29:31
![](https://img.aspxhome.com/file/2023/3/21983_0s.jpg)
WPS轻松办公—文档中如何变换文字的输入方向
2023-12-14 12:37:07
钉钉云课堂考试作弊能看到吗-钉钉云课堂考试作弊监控介绍
2022-02-07 22:55:58
![](https://img.aspxhome.com/file/2023/2/a288593_0s.png)
玩绝地求生提示globalban怎么办 被steam封禁的解决方法
2022-01-29 13:14:55
Win10无法安装字体该怎么办?
2023-11-17 16:25:25
![](https://img.aspxhome.com/file/2023/7/49937_0s.png)
微软:批量许可用户要等到8月1日升级Win10企业版和教育版
2022-12-18 05:20:21
![](https://img.aspxhome.com/file/2023/28/a248795_0s.jpg)
如何在WPS文字中给文档加上个性化水印
2022-07-19 14:52:28
WPS PPT制作酷炫粉笔字效果 实例教程
2023-10-31 04:10:38
![](https://img.aspxhome.com/file/2023/10/a352136_0s.jpg)
NVIDIA显示设置不可用怎么办?
2023-01-09 01:02:24
![](https://img.aspxhome.com/file/2023/1/a283850_0s.png)
Excel与Word格式互相转换,你一定要学会
2023-11-09 11:47:20
![](https://img.aspxhome.com/file/2023/6/16986_0s.jpg)
Win10你的it管理员已经限制对此应用一些区域的访问如何解决?
2022-12-26 23:54:31
![](https://img.aspxhome.com/file/2023/25/a218296_0s.jpg)
分享六个常用的Excel小技巧
2022-08-18 10:54:58
使用Renamer for Mac如何批量重命名照片?
2023-09-08 13:46:58
![](https://img.aspxhome.com/file/2023/7/a213257_0s.png)
win10安全模式下卸载不兼容软件教程
2022-06-25 02:41:21
![](https://img.aspxhome.com/file/2023/4/a308759_0s.jpg)
obj格式可以用哪些软件打开
2022-11-08 04:56:46
![](https://img.aspxhome.com/file/2023/9/a342574_0s.jpg)
Win11家庭版怎么把用户名修改为英文?
2022-04-06 21:45:42
![](https://img.aspxhome.com/file/2023/27/a236026_0s.jpg)