帮助我从选定内容中获取数据透视表的源数据
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
发布于 2018-07-23 04:16:40
尝试如下所示:
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
SourceData:= Sheets("Filtered Data").Range("A1").CurrentRegion, _
Version:=xlPivotTableVersion15).CreatePivotTable _
TableDestination:="Snap!R6C6", TableName:="PivotTable13", DefaultVersion _
:=xlPivotTableVersion15
https://stackoverflow.com/questions/51467654
复制相似问题