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

各位用户为了找寻关于excel VBA批量更改数据透视表数据字段值汇总方式的资料费劲了很多周折。这里教程网为您整理了关于excel VBA批量更改数据透视表数据字段值汇总方式的相关资料，仅供查阅，以下为您介绍关于excel VBA批量更改数据透视表数据字段值汇总方式的详细内容

如果需要更改Excel数据透视表数值区域中字段的值汇总方式，在字段较多的情况下，手动逐一更改显得有些繁琐。用下面的VBA代码可快速批量更改全部数据字段的值汇总方式。例如要将当前工作表中第一个数据透视表的所有数据字段值汇总方式改为“求和”，方法如下：

按Alt+F11，打开VBA编辑器，在代码窗口中粘贴下列代码：

Sub SumDataFields()Dim ptField As PivotFieldFor Each ptField In ActiveSheet.PivotTables(1).DataFieldsWith ptField.Function = xlSum.Caption = "求和项:" & .SourceNameEnd WithNextEnd Sub

关闭VBA编辑器，返回Excel工作表界面，按Alt+F8，打开“宏”对话框，选择“SumDataFields”宏执行即可。