Question

有没有人知道清除工作簿中切片器的好方法。我有一张带有许多切片器的纸张，我想有一个按钮来清除它们。

我写了一些VBA来做但是有点慢：

Sub ClearSlicers()
  Dim cache As SlicerCache

  For Each cache In ActiveWorkbook.SlicerCaches
           cache.ClearManualFilter
  Next cache
End Sub

只是想知道你是否有一点点光滑？

由于约翰

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

清除Power Pivot Slicers

1 个答案: