Excel VBA:如何将数组用作透视表的筛选条件

Sub FilterPivotTableWithArray()
    Dim pt As PivotTable
    Dim field As PivotField
    Dim filterArr() As Variant
    Dim i As Long
    
    ' 设置筛选条件数组
    filterArr = Array("条件1", "条件2", "条件3")
    
    ' 设置透视表对象
    Set pt = ThisWorkbook.Sheets("Sheet1").PivotTables("PivotTable1")
    
    ' 设置筛选字段
    Set field = pt.PivotFields("字段名")
    
    ' 清除所有筛选项
    field.ClearAllFilters
    
    ' 循环遍历筛选条件数组
    For i = LBound(filterArr) To UBound(filterArr)
        ' 添加筛选项
        field.PivotFilters.Add Type:=xlCaptionEquals, Value1:=filterArr(i)
    Next i
End Sub