vba - VBA中的自动过滤器，标准为一系列单元格

Question

我想在 vba 中使用自动过滤器来使用单元格值的动态范围进行过滤。

ActiveSheet.Range("$A$1:$I$954092").AutoFilter Field:=1, Criteria1:=???? _
Operator:=xlFilterValues

我想使用动态范围的单元格，例如

Range("A1",Range("A1").End(xlDown))

你能建议如何指定这个吗？

我尝试将以下内容传递给 Criteria1:

Range(###).Value
Array(Range(###))

等等

前任。

Col1    Col2    Col3    Col4
----------------------------
 A        1       3       Y
 B        3       3       N
 A        2       2       N
 C        6       1       Y
 B        9       3       Y

我想过滤出具有 A 值的行& C在 Col1 .

Answer 1

如果我们在小型 上使用 Recorder自动筛选 我们看:

Sub Macro1()
    Range("A1:C20").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=2, Criteria1:=Array( _
        "Alice", "Boris", "Mike"), Operator:=xlFilterValues
End Sub

所以 自动筛选 想要 Criteria1 的基于 1 的数组

假设所需列表位于 列中的工作表 xx 中答:我们将从这个列表中创建一个数组:

Sub Macro11()
    Dim N As Long, r As Range
With Sheets("xx")
        N = .Cells(Rows.Count, "A").End(xlUp).Row
        ReDim ary(1 To N)
        For i = 1 To N
            ary(i) = .Cells(i, 1)
        Next i
End With

    Range("A1:C20").AutoFilter
    ActiveSheet.Range("$A$1:$C$20").AutoFilter Field:=2, Criteria1:=ary, Operator:=xlFilterValues
End Sub