在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---不指定任何汇总方式