如何在VBA中按多个数据（列表）使用过滤器

Question

我想在Excel VBA中按多个数据使用筛选器。 第一次 我使用了“ for”和“ find”方法，但处理速度太慢。

如果是Python，请使用“熊猫模块”和数据框，如以下示例所示 filter = dataframe ['headername“]。isin（[Listdata1，Listdata2，Listdata3 ..]）

但是我在VBA中找不到类似的方法。

这是我的背景数据1：

Answer 1

Sub MultiSelectFilter()

    Dim arr As Variant

    ' Range containing values to be shown
    arr = Range("C1:C3")

    ' Range to be filtered
    Range("A1").AutoFilter
    Range("A1").AutoFilter Field:=1, Criteria1:=Application.Transpose(arr), Operator:=xlFilterValues
End Sub