如何從另一個工作表中選擇數據透視表數據范圍

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 。

屏幕上將不會閃爍，這將更加平滑。