VBA中加快切片器循环运行速度的方法咨询

我最近在做一个Excel自动化需求：要基于「MacroHelper」工作表里的True/False值来筛选数据透视表，试了各种方法后发现用切片器是最直接的方案。目前写的VBA代码能正常完成任务，但效率实在拉胯——遍历230个SlicerItems居然要耗时45秒！想问问有没有能大幅提速的技巧？

附上我的代码片段：

Sub CategoryMacro()
    '遍历数据透视表切片器，选择符合MacroHelper工作表中特定TRUE/FALSE条件的项目
    Dim wb As Workbook
    Dim ws1, ws2 As Worksheet
    Dim kpicat As String
    'Speed Up ...的内容

内容的提问来源于stack exchange，提问作者Matt Cottrill