参考サイト https://daitaideit.com/vba-autofilter-multi/ ここに 配列を使ってフィルタする場合は、「=」とする値だけをフィルタできます。 なので、ワイルドカード、比較演算子、論理演算子は使えません。 と書いてあります。ですので検索値が5個必要で曖昧検索だと、フィルターでは出来ないと思います。 参考までに代替え案を考えてみました。 全表示 Rows.Hidden = False だけのボタンも必要になりますが。 9行目が項目名で10行目以降がデータとしました。 Sub test() Dim lName(4) As Variant Dim i As Integer Dim rmax As Long, r As Long Dim cnt As Integer Dim tbl() As Variant Dim rng As Range lName(0) = Range("D3").value lName(1) = Range("D4").value lName(2) = Range("D5").value lName(3) = Range("D6").value lName(4) = Range("D7").value ReDim tbl(0) rmax = Cells(Rows.Count, 4).End(xlUp).row For r = 10 To rmax cnt = 0 For i = 0 To 4 If lName(i) <> "" Then If InStr(Cells(r, 4).value, lName(i)) > 0 Then cnt = cnt + 1 End If End If Next i If cnt = 0 Then tbl(UBound(tbl)) = r ReDim Preserve tbl(UBound(tbl) + 1) End If Next r Set rng = Range("A" & tbl(0)) If UBound(tbl) > 1 Then For i = 1 To UBound(tbl) - 1 Set rng = Union(rng, Range("A" & tbl(i))) Next i End If rng.EntireRow.Hidden = True End Sub