Question

我在使用自动筛选功能的语法时遇到问题。我知道以下过滤器可用于数组中的这些值：

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

将这些值过滤出数组的语法是什么？

Answer 1

将“不需要的”已过滤dara存储在助手Range对象中，取消过滤并显示所有数据，隐藏助手范围，最后将其设置为可见数据

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

筛选出值数组的语法

1 个答案: