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”宏执行即可。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。