如何删除Excel中未使用的空Pivot Cache？寻求技术协助

以下是针对未被任何数据透视表引用的空白/未使用PivotCache的修改版VBA宏，可解决你的场景问题：

Sub DeleteUnusedPivotCaches()
    Dim pc As PivotCache
    Dim cacheCount As Integer
    Dim i As Integer
    
    ' 禁用屏幕更新提升运行效率
    Application.ScreenUpdating = False
    
    cacheCount = ActiveWorkbook.PivotCaches.Count
    
    ' 从后往前遍历缓存，避免删除后索引错乱
    For i = cacheCount To 1 Step -1
        Set pc = ActiveWorkbook.PivotCaches(i)
        On Error Resume Next ' 捕获缓存访问异常
        ' 判断缓存是否未被任何透视表关联
        If pc.PivotTables.Count = 0 Then
            pc.Delete
        End If
        On Error GoTo 0 ' 恢复默认错误处理
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "未使用的数据透视缓存清理完成！", vbInformation
End Sub

代码说明 #

• 反向遍历缓存集合：避免因删除操作导致后续缓存索引移位，确保所有缓存都能被检查
• 判定逻辑：通过pc.PivotTables.Count = 0识别未被任何透视表引用的空缓存
• 错误捕获：处理部分无法正常访问的缓存对象，防止宏运行中断

使用步骤 #

• 打开目标Excel文件，按下Alt + F11打开VBA编辑器
• 右键点击左侧工程窗口中的当前工作簿，选择「插入」→「模块」
• 将上述代码粘贴到模块代码窗口中
• 按下F5运行宏，或回到Excel界面通过「开发工具」→「宏」选择DeleteUnusedPivotCaches执行

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