如何删除特定于一个工作表的切片器caching？

我有一些代码清除我的工作簿中的数据透视表切片器caching。 我在工作簿中有两个数据透视表，我想修改代码只清除特定的工作表上的切片器。 有谁知道我怎么可以修改来做到这一点？

Dim cache As SlicerCache For Each cache In ActiveWorkbook.SlicerCaches If cache.FilterCleared = False Then cache.ClearManualFilter Next cache 

谢谢！

Answer 1

这应该指向正确的方向

 Sub test() Dim pt As PivotTable Dim cache As Slicer For Each pt In ActiveSheet.PivotTables For Each cache In pt.Slicers cache.SlicerCache.ClearAllFilters Next cache Next pt End Sub