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

数据透视表计算类型对应数码表：

序号	计算类型	对应数字	英文代码
1	求和	-4157	xlSum