フィルタ

設定

　複数の値

テーブル.Range.AutoFilter Field:=列インデックス, Criteria1:=値の配列, operator:=xlFilterValues

チェック

　行が非表示か

If 行.Range.Rows.Hidden Then