带多透视过滤器的Excel VBA

我有一个数据透视表，我正在尝试使用Excel VBA在其上创建多个过滤器

条件：
我希望所有PCC级别3因此

数据透视字段（“PCC级别”）=3

和
我想要数据透视字段（“TowerLevel 3”）=“全局转换服务”

问题：
当PCC级别为0,1,2,3时，应填充数据透视字段（“TowerLevel 3”）=“全局转换服务”

Sub Macro2()

    With ActiveSheet.PivotTables("PCC3ActionPlan").PivotFields("Project PCC Level")
        .PivotItems("0").Visible = False
        .PivotItems("1").Visible = False
        .PivotItems("2").Visible = False
        .PivotItems("3").Visible = True
    End With
    With ActiveSheet.PivotTables("PCC3ActionPlan").PivotFields("TowerLevel3")
        .PivotItems("Applications Consulting").Visible = False
        .PivotItems("Applications Development, Maintenance, & Support").Visible = _
        False
        .PivotItems("Applications Management and Support").Visible = False
        .PivotItems("Applications Modernization").Visible = False
        .PivotItems("Business Intelligence and Data Warehousing").Visible = False
        .PivotItems("Business Process Services").Visible = False
        .PivotItems("Cloud (non-Oracle)").Visible = False
        .PivotItems("Cloud (Oracle-based)").Visible = False
        .PivotItems("Consulting & Systems Integration").Visible = False
        .PivotItems("Enterprise Application Services").Visible = False
        .PivotItems("Enterprise Deployment Team").Visible = False
        .PivotItems("Enterprise Managed Security").Visible = False
        .PivotItems("Global Healthcare Consulting").Visible = False
        .PivotItems("Global Transition Services").Visible = True
        .PivotItems("Infrastructure & Technology Services").Visible = False
        .PivotItems("Infrastructure Consulting Services").Visible = False
        .PivotItems("Infrastructure Outsource Services").Visible = False
        .PivotItems("Insite One (acquisition)").Visible = False
    End With

End Sub

---

建议通过选择正确的标志来指示您正在使用的Excel版本。在您这样做的同时，请比较Pivot功能从2003年到2015年的变化/改进/废弃情况。。。