скрыть все строки списка ListObject, но выбранный

Question

Я ищу код VBA, который спрячет все строки в таблице, кроме выбранной строки. Таким образом, на рисунке ниже выбирается MSFT, и я бы хотел, чтобы все остальные ListRows скрывались.

Как вы это сделаете?

Answer 1

Если вы используете список для вашей таблицы, должно работать:

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

Вы можете запустить этот сабвуфер с помощью пользовательской кнопки, контекстное меню и т.д.