0

我现在正在研究一个引用数据透视表的宏,但我遇到的问题是我的引用仅适用于特定的单元格范围,我无法让它引用整个表,因为它会根据情况而增长或缩小数据。我尝试了一些不同的东西,但我没有使用 VB 的经验,所以我不确定我是否完全理解语法......

这是我目前拥有的:

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

“U4:Y10”引用应该是数据透视表中的信息

4

1 回答 1

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
于 2013-08-12T13:57:33.553 回答