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