就没有在透视表中能操作的简单方式吗,因为源数据是不能更改的
追答用VBA吧。
按Alt+F11,打开VBA编辑器,在代码窗口中粘贴下列代码:
Sub SumDataFields() Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
With ptField
.Function = xlSum
.Caption = "求和项:" & .SourceName
End With
Next
End Sub
关闭VBA编辑器,返回Excel工作表界面,按Alt+F8,打开“宏”对话框,选择“SumDataFields”宏执行即可。