4

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

谢谢。

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

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

1 回答 1

6

使用以下代码（为数据透视表名称 PivotTable1 提供）：

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select
于 2013-08-23T09:04:39.587 回答