VBA小程序_遍历所有工作表_取消隐藏所有行_列

最新推荐文章于 2025-04-27 10:47:42 发布

原创最新推荐文章于 2025-04-27 10:47:42 发布 · 2.3k 阅读

9 ·

CC 4.0 BY-SA版权

文章标签：

#vba #excel #openoffice

VBA 专栏收录该内容

62 篇文章

订阅专栏

本文介绍了一段VBA小程序代码，该程序用于遍历Excel中所有工作表，并取消所有行和列的隐藏状态。这在需要统一显示所有数据进行分析或处理时非常有用。

Sub VBA小程序_遍历所有工作表_取消隐藏所有行_列()
    Dim shp As Shape, sht As Worksheet
    Rem On Error Resume Next '忽略报错，防止有#N/A
    
    Rem 遍历所有工作表，取消隐藏行 + 列
    For Each sht In Worksheets
        sht.Activate
        sht.Cells.EntireColumn.Hidden = False   '取消隐藏所有行
        sht.Cells.EntireRow.Hidden = False   '取消隐藏所有列
    Next
    
    Rem On Error GoTo 0 '恢复报错
End Sub