VBA选择数据透视表

时间:2013-08-22 14:52:36

标签: vba pivot

我正在尝试使用VBA选择数据透视表,并遇到一个问题,即数据透视表可能从A3开始(如果没有激活报告过滤器)或A6(如果已选择3个报告过滤器)等。因此,数据透视表不会始终位于工作表上的同一点上。清除枢轴仅删除所有数据和报告过滤器,但不会将数据透视表移回其原始位置。有没有办法使用VBA选择数据透视表(以便能够将数据复制并粘贴到新工作表中),无论它在工作表上的位置如何?

感谢。

更新 - 我已经想出了如何做到这一点。它非常简单:

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select

1 个答案:

答案 0 :(得分:3)

使用以下代码(为数据透视表名称PivotTable1指定):

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select