如何批量更改Excel数据透视表值汇总依据？

Excel数据透视表里值汇总依据常常默认是计数项或是求和项，当想用平均值项时就需要自己手动修改，非常麻烦解决方法：alt+F11,打开代码编辑窗口，输入：

Sub SumDataFields()
Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
With ptField
.Function = xlAverage
.Caption = "平均值项:" & .SourceName
End With
Next
End Sub

然后点绿色的三角形运行，会选择运行的宏名称，点确定，然后你就会发现自己的透视表值汇总依据全部变成平均值了