隐藏除选定行之外的所有 ListObject 行

Question

我正在寻找一些 VBA 代码来隐藏 table 中除所选行之外的所有行。所以在下图中，选择了 MSFT，我希望所有其他 ListRows 都隐藏起来。

你会怎么做？

Answer 1

如果您正在为您的 table 使用列表，则以下应该有效：

Sub HideAllListRowsExceptTheActiveOne()
    ActiveCell.ListObject.DataBodyRange.Rows.Hidden = True
    ActiveCell.Rows.Hidden = False
End Sub

您可以运行使用自定义按钮、上下文菜单项等来创建此子

hide all ListObject rows but the selected one