VBA-从透视表中选择单元格

我是VBA的新手，也是第一次发帖，所以请容忍我

我试图从数据透视表复制数据，并将值粘贴到单独的工作表中。我需要让宏观经济尽可能灵活，以适应未来对轴心的任何潜在变化。本质上，我希望复制（例如）A6:E77，但如果基础数据发生更改，则该行范围可能需要更改（因此需要更改为A6:E84，而不是A6:G77）。我可以使用以下方法选择不连续数据集中的所有垂直非空白单元格：

    Range("A6", Range("A1048576").End(xlUp)).Select

但是，如何选择B:E列中与A列中所选单元格相邻的所有单元格

我尝试使用以下代码，但它似乎忽略了End.（xlUp）命令

---

有什么想法吗？非常感谢您的帮助：）

您可以通过数据透视表集合中相关工作表对象上的数据透视表对象访问数据透视表

例如，第一张工作表上名为

PivotTable1

的数据透视表可以作为

Sheet1访问。数据透视表（“数据透视表1”）

这些数据透视表对象具有有用的属性，例如DataODyRange、DataLabelRange、ColumnRange、RowRange、PageRange等。这些范围会动态更新以指向数据透视表的相关部分

还有一些属性，如行字段、列字段和数据字段，允许您检查数据透视表的当前结构

---

如果不了解更多关于您试图复制的轴心的哪些部分，我无法给出更具体的建议。但是，您可以查看的文档。

您可以通过相关工作表对象的数据透视表集合中的数据透视表对象访问数据透视表

例如，第一张工作表上名为

PivotTable1

的数据透视表可以作为

Sheet1访问。数据透视表（“数据透视表1”）

这些数据透视表对象具有有用的属性，例如DataODyRange、DataLabelRange、ColumnRange、RowRange、PageRange等。这些范围会动态更新以指向数据透视表的相关部分

还有一些属性，如行字段、列字段和数据字段，允许您检查数据透视表的当前结构

---

如果不了解更多关于您试图复制的轴心的哪些部分，我无法给出更具体的建议。但是您可以查看有关的文档。

透视表数据是否从A6开始？（不包括标题）您试图复制的是所有数据还是部分数据？范围（“A6:E”和范围（“E1048576”）。结束（xlUp）。行）。选择数据透视表数据是否从A6开始？（不包括标题）您试图复制的是所有数据还是部分数据？范围（“A6:E”和范围（“E1048576”）。结束（xlUp）。行）。选择+1。这是乔恩·佩尔蒂埃的另一封信+1。这是乔恩·佩尔蒂埃的另一封信。

    Range("A6:E1048576", Range("A6:E1048576").End(xlUp)).Select