切换宏以隐藏/取消隐藏选择列

如何解决切换宏以隐藏/取消隐藏选择列

我想使用一个宏/按钮在隐藏和取消隐藏选择列之间切换。我有一些类似的东西可以隐藏/取消隐藏行，但无法弄清楚这一行。

Sub PrintToggle()
With ActiveSheet
    With Range("C:C,E:E,H:H,L:O,U:U,AA:AA,AF:AF,AI:AK").Columns
        If .EntireColumn.Hidden Then
            .EntireColumn.Hidden = False
        Else
            .EntireColumn.Hidden = True
        End If
    End With
End With

结束子

此功能用于至少隐藏列，但在保存并重新打开后，现在将隐藏整个工作表。我无法阻止它取消隐藏相同的列。谢谢！

解决方法

循环遍历每行对我有用的

Sub PrintToggle()

    Dim r As Range
    
    For Each r In ActiveSheet.Range("C1,E1,H1,L1:O1,U1,AA1,AF1,AI1:AK1")
        If r.EntireColumn.Hidden Then
            r.EntireColumn.Hidden = False
        Else
            r.EntireColumn.Hidden = True
        End If
    Next r
End Sub