使用 VBA 引用数据透视表数据

Question

我正在尝试列出数据透视表的行标签，但无法访问它们。它们不显示为行标签，所以我不确定。

示例：

Row Labels     Sum of Resources
----------     ----------------
 item 1             1
 item 2             4
 item 3             2

我希望能够访问item1、item2 和item3。

我目前的代码如下，它可以满足我的要求除了来访问项目 1 到 3：

Dim item As Variant
For Each item In ActiveSheet.PivotTables("Pivot1"). _
                             PivotFields("Sum of Resource").DataRange
    Debug.Print item;
Next item

Answer 1

直接引用单元格

除了我们的comments，这不是获取数据摘要的最佳方式，但你似乎很坚定，并且没有更多关于你拥有什么以及你想要做什么的信息做，我只是想知道为什么你不只是引用标签单元格“像任何其他单元格一样”。

示例：

• 在上面的示例中，=D2 返回A，这是数据透视表的第一个标签。

---

GetPivotData 设置和功能

请注意，根据您对 "Use GetPivotData functions for PivotTable references" 的设置（在选项中）（未选择我的），您的上述示例中的公式可能会出现不同的显示，但无论哪种方式，最终结果都是相同的。

^{点击图片放大。}

• documentation here 中有更多关于GetPivotData 的信息。

---

DataLabelRange 属性

还有其他几种方法可以引用数据透视表的 [任何] 部分，如果数据经常更改，则某些方法比其他方法更可靠。另一种方法是使用DataLabelRange 属性。

• 详细了解documentation here 和examples here 中的DataLabelRange 属性。

Answer 2

我能够弄清楚如何做到这一点。不确定其他人是否有此问题，但下面的代码将列出所有行标签。

'Get Row labels
For Each item In ActiveSheet.PivotTables("Pivot-Table").RowRange
    If Not count = 0 And Not count = ActiveSheet.PivotTables("Pivot-Table").RowRange.count - 1 Then
        Debug.Print item
    End If
    count = count + 1
Next item

此代码将打印所有行标签，忽略总计和行标签标题