excel - 将多个值添加到多个数据透视表

Question

我是一个新手，无法将我搜索过的任何东西拼凑成一个解决方案。任何帮助表示赞赏。

数据集

我在工作表中有大量数据透视表。每个数据透视表都来自一个非常大的表（超过 1,000 列和数千行）。每个数据透视表都提供了特定的见解。

不幸的是，这个数据集设计得很糟糕，我无法控制并限制了我的方法。

客观的

我想根据需要刷新数据透视表中的值。每个数据透视表可能有几个值要添加，而一些数据透视表可能有几十个值要添加。

我试图避免在包含一千多个元素的数据透视表字段列表中搜索和添加多个数据元素，并在每次需要刷新此报告时为数十个数据透视表执行此操作。

我正在寻找的一个例子如下。好消息是，我在每个单独的数据透视表中需要的值列表设置在一个命名范围内。因此，对于下表，我有一个命名范围“Pivot1_List”，其中包括 [Value3,Value5,Value6]。我需要填充的每个枢轴都有命名范围。

例子

枢轴1	枢轴2	枢轴3	枢轴4	枢轴5	枢轴6	枢轴7
价值3	价值2	价值1	价值17	价值421	价值81	价值101
价值5	价值10	价值51		价值422	价值84	价值102
价值6	价值11	价值52		价值423	价值85	价值103
	价值23	价值53		价值424		价值104
	价值24	价值54		价值425		价值105
	价值25	价值55				价值1001
		价值56				价值1002

尝试过的解决方案

我提到我是一个新手，所以我还没有走得很远。我尝试在枢轴上方添加命名范围的名称以用作参考。我对 PowerPivot 知之甚少，不知道这是否是一个可行的解决方案。我最初认为可能不是因为每个枢轴引用的数据集是相同的。

这可能是一种无效的方法。我不确定如何引用填充在每个枢轴上方的命名范围的名称。我认为偏移会起作用，但我无法让它起作用。而且我不确定如何引用每个命名范围的值。

Dim s as Worksheet
Dim pt as PivotTable
Dim pf as PivotField

Set s = ActiveSheet
For each pt in s
Then
pt.AddDataField.'not sure how to add named range values'
Exit For

我希望这不会太混乱。

谢谢你的帮助！

标签： excelvbapivotnamed-ranges