複数のセルによるVBAフィルタ

Question

別のタブの複数のセルの値に従ってリストをフィルタリングしようとしていますが、正しく動作させることができません。

ActiveSheet.Range("$A$2:$Y$129").AutoFilter Field:=13, 
Criteria1:=Range("Formulas!A8:A10").Value 

問題は、それが1つのセルで動作するということですが、私は、範囲A8をどうしようとしているようではない複数：

これは私が得たものであるA10。現在のコードは、最終的に定義されたセル、つまりA10にのみフィルタリングされます。

私は間違っていますか？

Answer 1

FiltArrという配列変数を使用し、フィルタリングする範囲内のすべての値を格納します。

Dim FiltArr As Variant 

' add all range values to array, use Transpose to get a 1-D array 
FiltArr = Application.Transpose(Worksheets("Formulas").Range("A8:A10").Value) 

ActiveSheet.Range("A2:Y129").AutoFilter Field:=13, Criteria1:=FiltArr, Operator:=xlFilterValues