在VBA中引用Excel 2012中的数据透视表

Question

I am working on a macro right now that references a pivot table but the problem I'm having is that my reference is only for a specific cell range and I can't get it to reference the entire table as it grows or shrinks depending on the data. I've tried a few different things but I have no experience with VB so I'm not sure I entirely understand the syntax...

This is what I have currently:

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

The "U4:Y10" reference should be the information within the pivot table

Answer 1

Use Range.PivotTable.x for the Range of the values within the pivot table where x is a choice from the valid ranges shown in my example below.

Eg in your case use Cell U4 as the anchor cell from which to find the Pivot Table that contains it: Debug.Print Range("U4").PivotTable.TableRange1.Address (prints eg "U4:Y30")

The various choices over which range you want are such as:

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