VBA 选择数据透视表

Question

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

谢谢。

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

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

Answer 1

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

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