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