excel - 如何访问 VBA 中数据透视表的特定列总计？

Question

这是一个非常微不足道的问题，但我正在努力在网上找到答案。

如何“访问”grand total给定列的数据透视表。

例如，我有数据透视表"pivottable1"。

Customer   Product Code   Sum of price
   .   
   .             .
   .                           . 
 GRAND TOTAL                   $5000

所以在这个例子中，我想将 复制$5000到另一个单元格中。

数据透视表是动态的并且会改变长度。

我想说对于给定的价格总和列，将其grand total复制到另一个单元格。

标签： excelvba

Answer 1

笔记：

• 将值打印到A1
• 相应地更改字段名称
• 将适用于列。
• 此处参考数据透视表范围的更多信息

尝试：

Sub tst()

With ActiveSheet.PivotTables("PivotTable1")

ActiveSheet.Range("A1").Value = .PivotFields("Sum of Sum").DataRange.End(xlDown).Value

End With

End Sub

演示：