如何提高清爽的枢轴桌速度

我有这个代码刷新数据透视表。

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

这是一个class轮

 ActiveWorkbook.RefreshAll 

或者，如果您想要非VBA解决scheme，然后在Data Ribbon中单击Refresh All或按快捷键CTRL + ALT + F5

截图：