Автоматическая фильтрация нескольких значений из массива (чтобы включить их все в фильтр)

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