第1个回答 2017-06-08
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet2!R1C1:R19C4", Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="[工作簿1]Sheet1!R4C2", TableName:="数据透视表1", DefaultVersion _ :=xlPivotTableVersion14 主要是这句。 你可以用EXCEL自带的宏录制功能来寻找你要的功能的VBA代码。 Sub 宏2() ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _ "Sheet2!R1C1:R19C4", Version:=xlPivotTableVersion14).CreatePivotTable _ TableDestination:="[工作簿1]Sheet1!R4C2", TableName:="数据透视表1", DefaultVersion _ :=xlPivotTableVersion14 ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _ ).PivotFields("Q"), "求和项:Q", xlSum ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _ ).PivotFields("W"), "求和项:W", xlSum ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _ ).PivotFields("E"), "求和项:E", xlSum ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _ ).PivotFields("R"), "求和项:R", xlSum End Sub本回答被提问者采纳