一次取消隐藏一列

Question

我想要一个取消隐藏的宏，一次一个，一系列相邻的列。例如，列e：jf被隐藏。我想要一个宏，每次运行时都会取消隐藏下一个隐藏的列（所以f，然后是g等）

Answer 1

试试这个：

Sub UnhideACol()
Dim HiddenRange As Range, c As Range
Set HiddenRange = Range("E1:JF1") 'Define your range here
For Each c In HiddenRange
    If c.EntireColumn.Hidden Then
        c.EntireColumn.Hidden = False
        Exit For
    End If
Next c
End Sub