如何使用数组作为条件自动过滤

我刚刚学习如何使用数组，并且对如何使用数组作为自动过滤条件的输入有点困惑。我想设置一个包含值的数组，然后使用这些相同的值过滤 Excel 电子表格。我执行了下面的代码，但是当我尝试自动过滤时它不断抛出错误

这是我的代码

Dim I As Integer
ReDim arr(1 to var) As Variant 'var is defined in a different function with a #
I = 1
For Each rngValue In rngValues.cells 'rngValues is defined in a different function
    If rngValue ="c" then
       arr(I)=rngValue.Offset(0,2)
    End If
    I = I +1
Next rngValue

arr(I) = "="

With ws1
    .[A1].Autofilter Field:=1, Criteria1:=arr, operator:xlfiltervalues
End With

也许你可以尝试这个

   fil = Split(Join(Application.Transpose(Range("list")))) ' here list is the name of the range
    Range("A1").AutoFilter field:=1, Criteria1:=fil, Operator:=xlFilterValues 'it will only filter the list values