excel透视表中批量修改计数项为求和项-VBA代码在Excel数据透视表中实现很多计数项批量求和⽅法：
例：
将上图例“计数项”批量改为“求和项”，即第1次、第2次的数据透视表⾥的计算法为求和，⽅法如下：
1、按住ALT+F11（如果是笔记本的话，貌似需要按照FN+ALT+F11，因为按照FN，
才能使F11有效，我的笔记本是这样的，按照⾃⼰的电脑来就⾏，ALT+F11是必
按的。），出现下图的VBA窗⼝
2、双击数据透视表所在的表明，即VBAProject（你⾃⼰的⼯作簿名称）下边的
Microsoft Excel对象下边的⼯作表名，例中为Sheet1(基础表)，出现如下图：
3、然后在窗⼝的有上⽅空⽩处（我不是专业的不知道每个部位都叫什么）写下如下代excel求和的三种方法
码，懒得敲就直接复制就⾏：
Sub SumDataFields()
Dim ptField As PivotField
For Each ptField In ActiveSheet.PivotTables(1).DataFields
With ptField
.Function = xlSum
.Caption = "求和项:" & .SourceName
End With
Next
End Sub
4、然后如下图，点击窗⼝上⽅菜单栏⾥的“运⾏” “运⾏⼦过程/⽤户窗体”，然后就会出现⼀个“宏”的窗⼝，直接点“运⾏”就⾏了。
然后Excel表中透视表的计数项就变成求和项了，相应的值也是求和的值。
5、成功如下：
以下是对应的其他的.Function值，对应的.Caption = "求和项:" & .SourceName 中的“求和项”三个字也可以根据⾃⼰的需要改。.Function值如下：xlSum--求和，xlCount--计数，xlAverage--平均值，xlMax---最⼤值
xlMin---最⼩值，xlProduct---乘积，xlCountNums---数值计数
xlStDev---标准偏差，xlStDevP---总体标准偏差，xlVarP---总体⽅差
xlUnknown---不指定任何汇总⽅式

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。