在VBA中引用Excel 2012中的數據透視表

Question

我現在正在處理一個引用數據透視表的宏，但是我遇到的問題是我的引用僅針對特定的單元格范圍，隨着它的增長或縮小，我無法使其引用整個表數據。 我嘗試了幾種不同的方法，但是我沒有使用VB的經驗，所以不確定我是否完全理解語法。

這是我目前擁有的：

Sheets("Loader").Select
Range("C11").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "1"
Sheets("Worksheet").Select
Range("U4:Y10").Select
Selection.Copy

參考“ U4：Y10”應該是數據透視表中的信息

Answer 1

將Range.PivotTable.x用作數據透視表中值的范圍，其中x是從下面的示例中顯示的有效范圍中進行選擇。

例如，在您的情況下，使用單元格U4作為錨點單元格，從中查找包含它的數據透視表：Debug.Print Range（“ U4”）。PivotTable.TableRange1.Address（打印例如“ U4：Y30”）

您想要的范圍有多種選擇，例如：

With Range("U4").PivotTable
    .DataBodyRange 'Range of just the values
    .ColumnRange 'Range of Column 'labels'
    .RowRange 'Range of Row 'labels'
    .TableRange1 'Range of entire table (excluding page fields)
    .TableRange2 'Range of entire table (including page fields)
End With