如何从另一个工作表中选择数据透视表数据范围

Question

VBA新手。 我只是想弄清楚为什么我不能从另一个表的数据透视表中选择第一行数据范围。 有任何想法吗？

具有数据透视表的工作表名称=数据透视表数据透视表名称= PivotTable3

Dim pt作为数据透视表集pt = Sheets（“ Pivot”）。PivotTables（“ PivotTable3”）

Worksheets("Pivot").Activate
pt.PivotFields("Row Labels").DataRange.Select
Selection.Copy

我以为这会为我选择第一行。 但是我遇到错误“ 1004”

Answer 1

不确定到底要什么范围。 尝试以下方法之一：

Worksheets("Pivot").PivotTables("PivotTable3").TableRange1.Rows(1)
Worksheets("Pivot").PivotTables("PivotTable3").TableRange2.Rows(1)
Worksheets("Pivot").PivotTables("PivotTable3").DataBodyRange.Rows(1)
Worksheets("Pivot").PivotTables("PivotTable3").RowRange.Rows(1)

或类似Application.Intersect(Worksheets("Pivot").PivotTables("PivotTable3").TableRange1, Worksheets("Pivot").PivotTables("PivotTable3").DataBodyRange.Rows(1).EntireRow)

顺便说一句，以下方法将被禁止（实际上，所有具有VBA经验的人都将避免使用它）：

SomeSheet.Activate
MyRange.Select
Selection.DoSomeAction

相反，只需执行MyRange.DoSomeAction 。

屏幕上将不会闪烁，这将更加平滑。