Fatal编程技术网
  • vba/
  • VBA选择透视表

VBA选择透视表

vba

VBA选择透视表,vba,pivot,Vba,Pivot,我试图使用VBA选择透视表，但遇到了一个问题，即透视表可能从A3（如果没有激活报告过滤器）或A6（如果选择了3个报告过滤器）开始。因此，透视表不会始终位于工作表上的同一点上。清除透视只会删除所有数据和报表过滤器，但不会将透视表移回其原始位置。是否有任何方法可以使用VBA选择数据透视表（以便能够将数据复制并粘贴到新的工作表中），而不管数据在工作表上的位置如何 谢谢 更新-我已经想出了如何做到这一点。其实很简单： Dim PT As PivotTable Set PT = ActiveSheet.P

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

谢谢

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

Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select
使用以下代码（为数据透视表名称数据透视表1提供）：

你应该把它写下来作为一个答案，而不是一个编辑，并确认它。谢谢-我会做的，只要回答我自己的问题的时限到期！现在您已经掌握了如何选择数据透视表的方法，您可能很想知道如何引用数据透视表的不同部分。样本可在此处找到： 
Dim PT As PivotTable
Set PT = ActiveSheet.PivotTables(1)
PT.TableRange1.Select