批量更改透视表的值汇总方式，你会不会？

小伙伴们好啊，数据透视表想必大家都用过吧。在使用数据透视表时，你有没有遇到下面这种情况？

上图中，透视表默认的值汇总方式成了计数。要是值字段项目比较少的话，咱们可以分别右键，值汇总依据→再选择求和：

如果咱们的数据透视表比较复杂，假设有十几个或者几十个值字段的话，这样汇总就不方便了。

能不能批量更改透视表的值汇总方式呢？

还真可以。

选中数据透视表，【开发工具】→【Visual basic】→输入以下VBA代码→运行

Sub SumtoCount()

Dim pt As PivotField ’定义变量pt为字段

Application.ScreenUpdating = False ’禁止刷新屏幕

For Each pt In Sheet1.PivotTables(1).DataFields ’For-Next循环语句。遍历Sheet1中数据透视表1所有的字段集合

With pt ’wWth-End With语句，简化VBA代码，减少引用对象的寻找速度

.Function = xlSum  ’字段的数值方式设置为求和

.Caption = .SourceName & ' ' ’字段名称修改为数据源中的字段名

End With

Next

Application.ScreenUpdating = True ’开启屏幕刷新

不仅值汇总方式批量更改成了求和，而且字段标题的多余字符也没有啦。

好了，今天咱们分享的内容就是这些吧。看不懂代码？没关系啊，直接复制粘贴即可~~ 祝各位小伙伴一天好心情。

作者：孙佳益