excel - 如何更新源数据由宏更新的数据透视表？

Question

我有一个由数据透视图组成的仪表板。源数据通过宏进行更新。但是，当我刷新数据透视表的数据时，源数据表会减少到源文件的标题吗？有没有一种方法可以刷新这些数据透视表，而无需在每次通过运行宏更新源工作表时选择源数据？

Answer 1

如果您只需要刷新您的数据透视表，您可以仅出于这个原因添加一个新的子表。这是一个例子：

Sub RefreshPivotTable()

Dim ws As Worksheet 'Sheet containing the pivot table
Dim rng As Range 'top left cell of the pivot table
Dim pt As PivotTable

Set ws = Worksheets("Pivot Cohort")
Set rng = ws.Range("G1")
Set pt = rng.PivotTable

'~~> Refresh only this pivot table
pt.RefreshTable

'~~> Or Refresh all tables and queries in the active workbook
ActiveWorkbook.RefreshAll

'~~> Clear the variables from memory
Set ws = Nothing
Set rng = Nothing
Set pt = Nothing

End Sub