无需VBA：如何在Excel单元格中显示PivotTable数据源？

方法一：动态单透视表数据源查询（类似GETPIVOTDATA用法） #

无需编写VBA代码，通过Excel内置工具实现，能像GETPIVOTDATA一样，通过引用透视表单元格动态显示数据源：

1. 按下Ctrl+F3打开名称管理器，点击「新建」

2. 配置名称参数：

   • 名称：GetPivotSource（可自定义）
   • 范围：工作簿（确保全工作簿生效）
   • 引用位置：输入=GET.CELL(48, INDIRECT("rc", FALSE))
   • 点击「确定」保存

3. 在透视表旁的空白单元格输入=GetPivotSource，选中透视表内任意单元格（或直接将公式关联到透视表单元格），回车即可显示该透视表的数据源地址。复制公式到其他透视表旁，可快速批量查看单个透视表的数据源。

方法二：批量导出所有透视表数据源（高效排查） #

利用Power Query一次性提取工作簿中所有透视表的信息，适合批量排查错误：

1. 点击「数据」选项卡 → 「获取数据」 → 「自其他来源」 → 「空白查询」
2. 在Power Query编辑器中，点击「主页」→ 「高级编辑器」，替换原有代码为：

   let
       Source = Excel.CurrentWorkbook(),
       GetSheetPivots = (sheetName as text) => 
           let
               SheetData = Excel.Workbook(File.Contents(Excel.CurrentWorkbook(){0}[Content]{0}[Column1]), null, true){[Item=sheetName,Kind="Sheet"]}[Data],
               PivotFilter = Table.SelectRows(SheetData, each _[Kind] = "PivotTable"),
               AddSheetName = Table.AddColumn(PivotFilter, "工作表名称", each sheetName)
           in
               AddSheetName,
       AllPivots = Table.Combine(List.Transform(Source[Name], GetSheetPivots)),
       CleanColumns = Table.SelectColumns(AllPivots, {"工作表名称", "Name", "Source"})
   in
       CleanColumns
   

3. 点击「关闭并上载」，Excel会自动生成一个新工作表，包含所有透视表的工作表名称、透视表名称、数据源地址，直接对比即可快速定位错误（如标注2023的透视表引用2022数据）。

注意：方法一需启用Excel宏（无需编写代码，仅启用宏功能即可）；方法二适用于Excel 2016及以上版本，Power Query为默认内置功能。

内容的提问来源于stack exchange，提问作者Louise