vba - 使用范围作为自动筛选方法的标准数组

Question

再会，

我有以下代码

Sub AutFilCrit()



With Worksheets("Email Campaign Stats")
                .AutoFilterMode = False
                .Range("A6:AP6").AutoFilter
                .Range("A6:AP6").AutoFilter Field:=5, Criteria1:=Array("OARGUELLO", "KARAUZ", "LBALLADARES"), Operator:=xlFilterValues


End With
End Sub

如您所见，条件是直接写入代码的名称数组。我的问题是:假设我有一个 A1:A10 或 A1:K1 范围内的名称列表，我如何使用该范围作为标准的数组

Answer 1

下面是一个示例，它从 Sheet2 中的三个单元格构建一个数组以过滤 Sheet1 中的一列:

Sub UsingARange()
    Dim arr(1 To 3) As String
    For i = 1 To 3
        arr(i) = Sheets("Sheet2").Cells(i, 1).Value
    Next i

    With Sheets("Sheet1").Range("A1:A9")
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
    End With
End Sub

如果你想避免循环:

Sub UsingARange2()
    Dim rng As Range

    Set rng = Sheets("Sheet2").Range("A1:A3")
    arr = Application.WorksheetFunction.Transpose(rng.Value)
    With Sheets("Sheet1").Range("A1:A9")
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=arr, Operator:=xlFilterValues
    End With
End Sub