一个群友问到如何批量取消隐藏工作表。在一个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
两段代码使用任意一段都可以批量取消隐藏工作表。
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：批量取消隐藏工作表的方法
相关文章
