Office相关

分类: IT文章 • 2024-10-08 13:05:49

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