电脑教程
位置:首页>> 电脑教程>> office教程>> excel 批量取消隐藏工作表的两段VBA代码

excel 批量取消隐藏工作表的两段VBA代码

  发布时间:2023-03-04 15:05:36 

标签:excel批量取消隐藏工作表

一个群友问到如何批量取消隐藏工作表。在一个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代码的下载地址:


     

0
投稿

猜你喜欢

手机版 电脑教程 asp之家 www.aspxhome.com