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

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 + ALT + < KBD> F5

<强>截图：