excel 透视表中批量修改计数项为求和项-VBA代码

在Excel数据透视表中实现很多计数项批量求和方法： 例：

将上图例“计数项”批量改为“求和项”，即第1次、第2次的数据透视表里的计算法为求和，方法如下：

1、 按住ALT+F11（如果是笔记本的话，貌似需要按照FN+ALT+F11，因为按照FN，

才能使F11有效，我的笔记本是这样的，按照自己的电脑来就行，ALT+F11是必

按的。），出现下图的VBA窗口

2、 双击数据透视表所在的表明，即VBAProject（你自己的工作簿名称 ）下边的

Microsoft Excel对象下边的工作表名，例中为Sheet1(基础表)，出现如下图：

3、 然后在窗口的有上方空白处（我不是专业的不知道每个部位都叫什么）写下如下代

码，懒得敲就直接复制就行：

Sub SumDataFields()

Dim ptField As PivotField

For Each ptField In ActiveSheet.PivotTables(1).DataFields With ptField

.Function = xlSum

.Caption = \求和项:\

End With Next End Sub

4、 然后如下图，点击窗口上方菜单栏里的“运行”?“运行子过程/用户窗体”，然后

就会出现一个“宏”的窗口，直接点“运行”就行了。

然后Excel表中透视表的计数项就变成求和项了，相应的值也是求和的值。

5、 成功如下：

以下是对应的其他的.Function值，对应的.Caption = \求和项:\中的“求和项”三个字也可以根据自己的需要改。.Function值如下：

xlSum--求和 ，xlCount--计数，xlAverage--平均值，xlMax---最大值 xlMin---最小值，xlProduct---乘积，xlCountNums---数值计数 xlStDev---标准偏差，xlStDevP---总体标准偏差，xlVarP---总体方差 xlUnknown---不指定任何汇总方式

本文来源：https://www.bwwdw.com/article/dpxw.html