如何为数据透视表选择数据源的动态范围(从活动选择中)
如何为数据透视表选择数据源的动态范围(从活动选择中)
提问于 2018-07-23 01:33:07
帮助我从选定内容中获取数据透视表的源数据
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页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/51467654
复制相关文章
相似问题