一個群友問到如何批量取消隱藏工作表。在一個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.vmgcyvh.cn/
本文標題：批量取消隱藏工作表的方法
相關文章
