我创建了一个简单的宏来隐藏/取消隐藏Excel中的列(如下所示)。它工作正常,但是,当在宏的列范围内添加一列时,应该隐藏的最后一列仍未隐藏。需要说明的是:宏中的列范围是AM:BF。当我需要在此范围内添加列时,BF列保持不隐藏状态。您能帮助我如何改进代码,以使列的初始范围以及添加的列保持隐藏状态吗?
With Columns("AM:BF")
If .EntireColumn.Hidden = True Then
.EntireColumn.Hidden = False
Else
.EntireColumn.Hidden = True
End If
End With
您需要为该列放置一个放置器。您可以沿AM:BF列的顶部行使用命名范围(如果在中间添加一列,则该范围将发生变化)。您的代码可能看起来像
With ThisWorkbook.Sheets("MySheet").Range("NamedRange").EntireColumn
.Hidden = Not .Hidden
End With
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句