Excel批量取消工作表隐藏
1. Alt+F11 2. 视图-工程资源管理器 3. 在资源管理器空白处右键-插入-模块 4. 插入代码(如下) 5. F5
Sub qxyc() Dim sht As Worksheet For Each sht In Worksheets sht.Visible = xlSheetVisible Next End Sub
Excel批量取消工作表隐藏
1. Alt+F11 2. 视图-工程资源管理器 3. 在资源管理器空白处右键-插入-模块 4. 插入代码(如下) 5. F5
Sub qxyc() Dim sht As Worksheet For Each sht In Worksheets sht.Visible = xlSheetVisible Next End Sub