vba - 在 Excel 中隐藏/取消隐藏列的宏

Question

我创建了一个简单的宏来隐藏/取消隐藏 Excel 中的列(见下文)。它工作正常，但是，当在宏中的列范围内添加列时，应该隐藏的最后一列仍然不隐藏。为了让自己清楚:宏中的列范围是 AM:BF。当我需要添加此范围内的列时，BG(以前称为 BF)列保持不隐藏状态。您能帮助我如何改进代码，以便初始列范围以及添加的列保持隐藏吗？

With Columns("AM:BF")
    If .EntireColumn.Hidden = True Then
        .EntireColumn.Hidden = False
    Else
        .EntireColumn.Hidden = True
    End If
End With

Answer 1

您需要为该列提供一个放置器。您可以沿 AM:BF 列的顶行使用命名范围(如果您在其中添加一列，该范围将会更改)。您的代码可能看起来像

With ThisWorkbook.Sheets("MySheet").Range("NamedRange").EntireColumn
    .Hidden = Not .Hidden   
End With