VBA选择数据透视表。

4
我正在尝试使用VBA选择一个数据透视表,但遇到了一个问题:如果没有报告筛选器被激活,则数据透视表可能从A3开始;或者如果选择了三个报告筛选器,则从A6开始等。因此,数据透视表不总是在工作表上的同一位置。清除数据透视表只会删除所有数据和报告筛选器,但不会将数据透视表移回其原始位置。是否有办法使用VBA选择数据透视表(以便能够将数据复制并粘贴到新工作表中),而不管它在工作表上的位置如何?
谢谢。
更新 - 我已经找到了解决方法。其实很简单:
Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select

你应该将其以答案的形式写出来,而不是作为编辑,并确认它。 - Mike Weir
谢谢 - 我会在自己的问题回答时间限制到期后立即这样做! - Nat Aes
2
既然您已经掌握了如何选择数据透视表,您可能也想知道如何引用数据透视表的不同部分。这里可以找到示例:http://peltiertech.com/WordPress/referencing-pivot-table-ranges-in-vba/ - tbur
1个回答

6
使用以下代码(针对名为PivotTable1的数据透视表):
Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select

网页内容由stack overflow 提供, 点击上面的
可以查看英文原文,
原文链接