Vba 如何为透视表选择数据源的动态范围（从活动选择）

帮助我从选择中获取数据透视表的源数据

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

---

它像魅力一样工作，测试了所有其他错误，工作完美无瑕，非常感谢。