excel VBA批量更改数据透视表数据字段值汇总方式

如果需要更改Excel数据透视表数值区域中字段的值汇总方式，在字段较多的情况下，手动逐一更改显得有些繁琐。用下面的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”宏执行即可。