Excel批量取消隐藏工作表的方法

网友投稿 558 2022-12-03

excel批量取消隐藏工作表的方法

一个群友问到如何批量取消隐藏工作表。在一个excel工作薄里隐藏了十几张工作表,想将其取消隐藏,使用excel内置的功能:“格式——工作表——取消隐藏”,只能逐张慢慢取消隐藏工作表,如何批量取消隐藏工作表呢?

要解决批量取消隐藏工作表,就只能使用VBA代码完成。

下面提供两端批量取消隐藏工作表的VBA代码,都可以实现。

批量取消隐藏工作表代码一:

按下"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入——模块".,复制下面的代码,按F5键运行,就完成了批量取消隐藏工作表。

Sub 批量取消隐藏工作表()Dim i As IntegerFor i = 1 To Worksheets.CountWorksheets(i).Visible = TrueNextEnd Sub

批量取消隐藏工作表代码二:

Excel批量取消隐藏工作表的方法

Sub 批量取消隐藏工作表()For Each AA In SheetsAA.Visible = TrueNextEnd Sub

两段代码使用任意一段都可以批量取消隐藏工作表。

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:Excel如何使用Offset属性
下一篇:底子差,能学会Excel编程吗?
相关文章