excel - 更新 Excel 中多个数据透视表上的数据源

Question

有没有一种简单的方法可以同时更新单个 Excel 工作表上多个数据透视表的数据源？

所有数据透视表都引用相同的命名范围，但我需要创建第二个工作表，该工作表具有相同的数据透视表，但访问不同的命名范围。

理想情况下，我希望能够执行某种搜索和替换操作(就像您可以对公式执行的操作一样)，而不是手动更新每个单独的数据透视表。

有什么建议吗？

Answer 1

以下 VBA 代码将更改单个工作表上所有数据透视表的数据源。

您需要将 Sheet2 参数更新为包含新数据透视表的工作表名称，并将 Data2 参数更新为新命名范围。

Sub Change_Pivot_Source()

    Dim pt As PivotTable

    For Each pt In ActiveWorkbook.Worksheets("Sheet2").PivotTables
             pt.ChangePivotCache ActiveWorkbook.PivotCaches.Create _
                (SourceType:=xlDatabase, SourceData:="Data2")
    Next pt

End Sub