隐藏所有ListObject行，但隐藏所选的行

Question

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

你会怎么做？

Answer 1

如果您使用的是表格列表，则以下内容应该有效：

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

您可以使用自定义按钮，上下文菜单项等运行此子。