数据透视表值单元格地址答案

【问题标题】：Pivot Table Value Cell Address数据透视表值单元格地址
【发布时间】：2016-09-25 12:38:34
【问题描述】：

是否可以通过 VB 获取数据透视表中某个值的单元格地址（或单元格范围）？

例子：

Row Labels  Count   Threshold-%

REG1        224     0.00%
    FALSE   11
    TRUE    213

REG2        213     0.00%
    FALSE   13
    TRUE    200

REG3        318     0.00%
    FALSE   3
    TRUE    315

REG4        467     0.00%
    FALSE   7
    TRUE    460

Grand Total 1222    0.00%

如何获取 REG1 -> FALSE -> 11 的单元格地址？

我知道当我点击它时，它给了我“B3”，但我想通过 VB 找到它。

【问题讨论】：

仍在寻找，但可能会有所帮助stackoverflow.com/questions/6262743/…
这有帮助！我设法使用以下代码获得了我正在寻找的地址 - pt.GetPivotData("State", "Region", "REG1", "State", False).Address

标签： vba excel pivot-table

【解决方案1】：

是的，你可以，像这样获得你的枢轴项目：

https://msdn.microsoft.com/fr-fr/library/office/ff840045.aspx

https://msdn.microsoft.com/fr-fr/library/office/ff821539.aspx

之后你会找到它的地址：

Convert cells(1,1) into "A1" and vice versa

或使用数据透视表：

https://msdn.microsoft.com/fr-fr/library/office/ff195919.aspx

【讨论】：

感谢您的链接。我已经阅读了它们，但不幸的是它不是我要寻找的值，而是单元格地址。所以像“B3”等单元格的范围。不是里面的值。
文档说：包含数据透视表数据的字段的名称。注意数据，应该返回范围
我不明白。你有代码示例吗？

【解决方案2】：

试试这个：

Sub test()
    Dim Data As Range, cl As Range
    Set Data = Range(Cells.Find("REG1").Offset(, 1), _
                     Cells.Find("REG2").Offset(-1, 2))

    For Each cl In Data
        If UCase(cl.Value2) = "FALSE" And cl.Offset(, 1).Value2 = 11 Then Exit For
    Next cl

    If Not cl Is Nothing Then MsgBox cl.Address
End Sub

测试：

【讨论】：