VBA数据透视表：为不同列设置SUM与Average汇总方式

现有一段创建数据透视表的VBA代码，已通过pvf.Subtotals(2) = True为行字段添加汇总。当前所有数据列默认采用SUM汇总方式，但需求为最后一列（Sls %，对应代码中的papercostp字段）使用Average而非SUM。尝试用Set pvf = gWO.AddDataField(pvt, papercostp, xlAverage)设置后，该列出现负值，现寻求实现部分列SUM、部分列Average汇总的可行方法。

原始代码如下：

Set pvf = gWO.AddRowField(pvt, bdnaam)

pvf.Subtotals(2) = True

Set pvf = gWO.AddRowField(pvt, aorder)
Set pvf = gWO.AddRowField(pvt, ordnam)
Set pvf = gWO.AddDataField(pvt, salesamount)
Set pvf = gWO.AddDataField(pvt, papercost)
Set pvf = gWO.AddDataField(pvt, papercostp, xlAverage)

1. 明确字段汇总方式的正确设置逻辑 #

AddDataField方法默认用xlSum作为汇总函数，所以前两列（salesamount、papercost）无需额外指定即可用SUM。papercostp列出现负值，大概率是原始数据本身包含负值，或是行汇总时Average计算混入了其他汇总行数据。先检查原始数据中papercostp的数值是否正常。

2. 修正字段汇总方式的代码写法 #

显式指定各列的汇总函数，避免默认逻辑出错，同时给字段命名便于识别：

Set pvf = gWO.AddRowField(pvt, bdnaam)
' 先清除所有默认汇总，再仅开启求和汇总
pvf.Subtotals(1) = False
pvf.Subtotals(2) = True

Set pvf = gWO.AddRowField(pvt, aorder)
Set pvf = gWO.AddRowField(pvt, ordnam)

' 显式指定SUM汇总
Set pvf = gWO.AddDataField(pvt, salesamount, "销售额", xlSum)
Set pvf = gWO.AddDataField(pvt, papercost, "纸张成本", xlSum)

' 指定Average汇总并命名字段
Set pvf = gWO.AddDataField(pvt, papercostp, "销售占比", xlAverage)

3. 排查负值问题 #

• 核对原始数据源中papercostp列是否存在负值，若有则透视表的Average结果自然会包含这些负值。
• 检查行字段的汇总设置：如果行字段的汇总包含多余计算项，可能导致Average计算异常，确保仅开启需要的汇总类型。

4. 手动验证后反向生成代码 #

先手动在Excel中创建透视表，设置好各列的汇总方式，确认结果正常后，通过录制宏功能生成对应的VBA代码，对比现有代码的差异，快速定位问题点。

内容的提问来源于stack exchange，提问作者Ahmed