excel - 如何提高刷新数据透视表的速度

Question

我有这段代码可以刷新数据透视表数据。

Dim wsPT as Worksheet
Dim pt as PivotTable

Set wsPT = Thisworkbook.Sheets("Pivot")

With wsPT
    For Each pt in .PivotTables
        pt.RefreshTable
    Next pt
End With

它工作正常，但有点慢。
我在 WS 有 10 个 PT。
如何提高更新速度？
任何帮助将非常感激。

Answer 1

这是一个班轮

ActiveWorkbook.RefreshAll

或者，如果您想要非 VBA 解决方案，则在 中，Data Ribbon单击Refresh All或按快捷键CTRL++ALTF5

截屏：