Excel VBA实现数据透视表清除筛选并设置数值范围筛选

需求：

• 目标工作表：YTD Payment Trend
• 目标数据透视表：PivotTable2
• 操作字段：TotalAccountBalance
• 操作步骤：先清除该字段所有筛选，再筛选出**-5.00到+5.00之间**的数值，且范围需支持动态调整

原代码：

Sub TESTMACRO()

    Dim PT As PivotTable
    Dim TAB1 As PivotField
    
    Set PT = ThisWorkbook.Worksheets("YTD Payment Trend").PivotTables("PivotTable2")
    Set TAB1 = PT.PivotFields("TotalAccountBalance")
    
    '//Reset Pivot Field Filter
    TAB1.ClearAllFilters
    
    '//Enable Multiple Items Selection
    TAB1.EnableMultiplePageItems = True
      
    Set TAB1 = Nothing
    Set PT = Nothing

End Sub

修改后的代码（支持动态调整范围）：

Sub FilterPivotByRange()
    Dim PT As PivotTable
    Dim TAB1 As PivotField
    Dim minVal As Double, maxVal As Double
    
    ' 动态调整筛选范围：可直接修改数值，或从指定单元格读取（示例：minVal = ThisWorkbook.Worksheets("设置").Range("A1").Value）
    minVal = -5.00
    maxVal = 5.00
    
    ' 定位目标数据透视表和字段
    Set PT = ThisWorkbook.Worksheets("YTD Payment Trend").PivotTables("PivotTable2")
    Set TAB1 = PT.PivotFields("TotalAccountBalance")
    
    ' 清除原有筛选
    TAB1.ClearAllFilters
    
    ' 添加数值范围筛选
    TAB1.PivotFilters.Add _
        Type:=xlCaptionIsBetween, _
        Value1:=minVal, _
        Value2:=maxVal
    
    ' 释放对象
    Set TAB1 = Nothing
    Set PT = Nothing
End Sub

关键说明：

• 通过minVal和maxVal变量实现范围动态调整，无需修改核心筛选逻辑
• 使用PivotFilters.Add方法添加范围筛选，比手动勾选多选项更高效稳定
• 若TotalAccountBalance是数据透视表的值字段（而非行/列/页字段），需将筛选类型改为xlValueIsBetween，并调整字段引用为PT.DataFields("TotalAccountBalance")

注意事项：

• 运行代码前确保数据透视表已正确加载，必要时可在代码末尾添加PT.RefreshTable刷新数据
• 若字段存在空值或非数值内容，需提前处理避免筛选异常

内容的提问来源于stack exchange，提问作者Nadia M