VBA如何设置多个值作为数据透视表(Pivot Table)的筛选条件

核心问题说明 #

CurrentPage属性仅支持数据透视表页字段的单选筛选，无法直接通过And拼接多个值实现多选效果，这是你最后一行代码运行失败的根本原因。

修正方案 #

要实现多选，你需要先启用字段的多选项筛选功能，再逐个控制每个筛选项的可见状态，修正后的完整代码如下：

Dim varMonth As String
Dim varWeek As String
' 声明对象变量，避免依赖Activate方法导致运行不稳定
Dim wbTarget As Workbook
Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem

' 读取筛选参数
varMonth = ThisWorkbook.Worksheets("Data").Range("B2").Value
varWeek = ThisWorkbook.Worksheets("Data").Range("B3").Value

' 打开目标工作簿并绑定数据透视表对象
Set wbTarget = Workbooks.Open("filepath" & varMonth & "/" & varMonth & " WK " & varWeek & " D1 Reconciliation.xlsx")
Set pt = wbTarget.Sheets("Pivot").PivotTables("D1Pivot")

' 处理第一个单选筛选字段，原有逻辑可直接复用
With pt.PivotFields("Marketing Referral Type")
    .ClearAllFilters
    .CurrentPage = "Digital"
End With

' 处理第二个需要多选的筛选字段
With pt.PivotFields("Appointment Status")
    .ClearAllFilters
    ' 开启页字段多选项筛选开关
    .EnableMultiplePageItems = True
    ' 遍历所有筛选项，仅保留目标值可见
    For Each pi In .PivotItems
        Select Case pi.Name
            Case "Showed/Day1", "No Show"
                pi.Visible = True
            Case Else
                pi.Visible = False
        End Select
    Next pi
End With

扩展说明 #

如果后续需要筛选10个目标值，只需要在Select Case的Case行按逗号分隔新增对应值即可，不需要修改其他逻辑。
另外代码中去掉了所有Activate操作，改用对象直接绑定的写法，可避免窗口切换、焦点变化导致的运行异常，稳定性更高。

内容的提问来源于stack exchange，提问作者Sophia Gibson