Excel 有没有办法找到数据透视表的范围

Excel 有没有办法找到数据透视表的范围,excel,pivot-table,vba,Excel,Pivot Table,Vba,Excel 2013。我有一个pivot表,它根据数据行增长和收缩。例如 1.对于行标签,我有所有产品的列表 2.对于列标签,我有制造商列表 3.对于值,制造商的计数为1。这将告诉我有多少制造商生产相同的产品 因此,产品列表(行)会增加,制造商列表(列)也会增加 我的问题是:是否有一种方法可以获得透视的范围,例如,如果透视表从A1开始,有10种产品和10个制造商,那么透视表的范围将是$a$1:$K$12(没有行的合计或列的合计) 有没有快速提取$a$1:$K$12范围的方法 提前谢谢大家, G.

Excel 2013。我有一个pivot表,它根据数据行增长和收缩。例如 1.对于行标签,我有所有产品的列表 2.对于列标签,我有制造商列表 3.对于值,制造商的计数为1。这将告诉我有多少制造商生产相同的产品

因此,产品列表(行)会增加,制造商列表(列)也会增加

我的问题是:是否有一种方法可以获得透视的范围,例如,如果透视表从A1开始,有10种产品和10个制造商,那么透视表的范围将是$a$1:$K$12(没有行的合计或列的合计)

有没有快速提取$a$1:$K$12范围的方法

提前谢谢大家,


G.

我看到您标记了Excel VBA

是的,如果您可以考虑范围为“代码>范围(单元格(1,1),单元格(12,12))< /代码>,而不是<代码>范围(“A1:K12”)

有一种方法可以计算VBA中的字段项

Rcount = Sheets("YOUR SHEET NAME").PivotTables(1).PivotFields("YOUR ROW NAME").PivotItems.Count
Ccount = Sheets("YOUR SHEET NAME").PivotTables(1).PivotFields("YOUR COL NAME").PivotItems.Count
从这里开始,您只需要添加2来补偿额外的行/列

Rcount = Rcount+2
Ccount = Ccount+2

Dim TableRNG as range
Set TableRNG = Range(cells(1,1),cells(Rcount,Ccount))

如果不知道您要完成什么,很难再进一步,我也不确定您是否真的需要VBA解决方案。

要获得不包括筛选器范围的透视表范围(通常在表上方两行),请使用以下代码。这将选择实际的数据透视表范围,并在消息框中输出数据透视表范围的地址

Set pt = ActiveSheet.PivotTables(1)
pt.TableRange1.select
Msgbox pt.TableRange1.address

很酷,谢谢蒂姆,谢谢乔希。G