我正在寻找一些VBA代码,这些代码将隐藏表中除选定行之外的所有行。因此,在下面的图片中,选择了MSFT,我希望所有其他ListRows都隐藏起来。
你会怎么做?
如果您要为表使用列表,则应执行以下操作:
Sub HideAllListRowsExceptTheActiveOne() ActiveCell.ListObject.DataBodyRange.Rows.Hidden = True ActiveCell.Rows.Hidden = False End Sub
您可以使用自定义按钮,上下文菜单项等运行此子程序。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
点击生成二维码
我来说两句