一次隐藏一列

我想要一个macros，一次一个地取消一系列相邻的列。 例如，列e：jf是隐藏的。 我想要一个macros，每次运行，将取消隐藏下一个隐藏的列（所以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