如何为数据透视表选择数据源的动态范围(来自主动选择)?

内容来源于 Stack Overflow,并遵循CC BY-SA 3.0许可协议进行翻译与使用

  • 回答 (1)
  • 关注 (0)
  • 查看 (80)

帮助我从选择中获取我的枢轴表的源数据

Sheets("Filtered Data").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select

在这里,我的选择过程结束和枢轴表选择数据,你能帮助我使它的动态吗?

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
    "Filtered Data!R1C1:R21C8", Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="Snap!R6C6", TableName:="PivotTable13", DefaultVersion _
    :=xlPivotTableVersion15

格式化枢轴数据不那么重要

Sheets("Snap").Select
Cells(6, 6).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("PivotTable13").PivotFields("CMP")
    .Orientation = xlRowField
    .Position = 1
End With
With ActiveSheet.PivotTables("PivotTable13").PivotFields("Area")
    .Orientation = xlColumnField
    .Position = 1
End With
ActiveSheet.PivotTables("PivotTable13").AddDataField ActiveSheet.PivotTables( _
    "PivotTable13").PivotFields("Site Name"), "Count of Site Name", xlCount
ActiveWorkbook.ShowPivotTableFieldList = False
Columns("F:K").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
提问于
用户回答回答于

尝试如下:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
    SourceData:= Sheets("Filtered Data").Range("A1").CurrentRegion, _
    Version:=xlPivotTableVersion15).CreatePivotTable _
    TableDestination:="Snap!R6C6", TableName:="PivotTable13", DefaultVersion _
    :=xlPivotTableVersion15

所属标签

可能回答问题的人

  • 天使的炫翼

    15 粉丝531 提问35 回答
  • 旺仔小小鹿

    社区 · 运营 (已认证)

    48 粉丝0 提问27 回答
  • 富有想象力的人

    2 粉丝0 提问26 回答
  • 发条丶魔灵1

    6 粉丝525 提问25 回答

扫码关注云+社区

领取腾讯云代金券