如何用vba取消工作表中所有行列的隐藏？

在excel vba中要取消行或者列的隐藏，可以使用Range对象的Hidden属性。

通过Range对象的Hidden属性不仅可以设置行或者列的隐藏，还可以获取行或者列是否处于隐藏状态。

以下vba代码分别可以实现隐藏当前工作表的1到3行，A到C列以及取消所有行、列的隐藏:

Sub QQ1722187970()
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    With oWK
        Dim oRng As Range
        Set oRng = .Rows("1:3")
        oRng.Hidden = True
        Set oRng = .Columns("A:C")
        oRng.Hidden = True
        .Rows.Hidden = False
        .Columns.Hidden = False
    End With
End Sub