以下是这段代码ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"SourceData!R1C1:R82C5").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(4, 1)
ActiveSheet.Cells(4, 1).Select
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Country")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Salesperson")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("Order Amount"), "Sum of Order Amount", xlSum有没有人做过?
"SourceData!R1C1:R82C5").CreatePivotTable TableDestination:="", TableName:= _
"PivotTable4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(4, 1)
ActiveSheet.Cells(4, 1).Select
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Country")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable4").PivotFields("Salesperson")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable4").AddDataField ActiveSheet.PivotTables( _
"PivotTable4").PivotFields("Order Amount"), "Sum of Order Amount", xlSum有没有人做过?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货