从数组中自动过滤多个值（将它们全部包含在过滤器中）。

Question

我想从一个数组中自动过滤所有的值，现在我的代码只从数组中取一个值并进行过滤。

有谁知道如何从数组中提取所有值进行过滤？

谢谢

    Set rngAF = ActiveSheet.Range("$B$4:$B$2226").SpecialCells(xlCellTypeVisible)
    ReDim arr(1 To rngAF.Count)
    i = 1
    For Each rngCell In rngAF
        arr(i) = rngCell.Value
        i = i + 1
    Next rngCell

    Sheets("GL").Range("$A$1:$BL$10000").AutoFilter Field:=1, Operator:=xlAnd, Criteria1:=arr

Answer 1

我发现了问题。当把数组，我应该有类型

rngCell.Text 而不是 rngCell.Value。