excel批量取消隐藏工作表

　按下”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

版权声明：本文为yuwenfeng原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/yuwenfeng/p/4911111.html