Синтаксис для фильтрации массива значений

Question

У меня проблемы с синтаксисом функции автофильтра.Я знаю, что следующие фильтры для этих значений в массиве:

wsDB.Range("A10:J10").AutoFilter Field:=2, Criteria1:=Array("T8932", "TR8434", …………)

Какой будет синтаксис для фильтрации этих значений в массиве?

Answer 1

Сохраните «нежелательные» отфильтрованные данные в объекте диапазона помощника, отфильтруйте и покажите все свои данные, скройте диапазон помощника, наконец установите для него видимые данные

Dim myRng As Range
With wsDB 
    With Range("J10", .Cells(.Rows.Count, 1).End(xlUp))
        . AutoFilter Field:=2, Criteria1:=Array("T8932", "TR8434", …………)
        Set myRng = .Offset(1).Resize(.Rows.Count - 1). SpecialCells(xlCellTypeVisible)
        .Parent.AutoFilterMode = False
        myRng.EntireRow.Hidden = True
        Set myRng = .Offset(1).Resize(.Rows.Count - 1). SpecialCells(xlCellTypeVisible)
    End With 
End With