使用VBA清除数据透视表筛选的方法

张文洲

和大家分享一下利用VBA语句清除数据透视表筛选的三种方法
如我有以下数据透视表，并对其城市字段设置了筛选（使用了三种筛选：标签筛选、数值筛选、手动筛选）

标签筛选主要用于文本型字段

数值筛选既可以用于要筛选的字段本身（本身是数值的时候），也可以以其他数值字段为筛选依据

手动筛选大家再熟悉不过了

使用VBA语句清除这三种筛选的方法如下

1. Sub Macro2()
   
2. '
   
3.    With ActiveSheet.PivotTables("PT1")
   
4.         .PivotFields("城市").ClearAllFilters  '一次性清除三种筛选
   
5.         .PivotFields("城市").ClearLabelFilters  '清除标签筛选
   
6.         .PivotFields("城市").ClearValueFilters '清除数值筛选
   
7.         .PivotFields("城市").ClearManualFilter '清除手动筛选
   
8.    End With
   
9. End Sub

复制代码

kkkrin

怎么加筛选呢

GOTMAN

切片器换一个SHEET 宏报错目前无法解决？求助