为何VBA中WorksheetFunction.Average与Excel SUM结果不一致且最值错误？

以下是这类场景下最容易踩的坑，你可以逐一排查：

1. 区域定义或值匹配逻辑出错 #

• 先确认名称管理器里tart的范围是不是严格的B2:H1222——有时候手动定义名称时会误选范围，或者后续修改表格结构导致范围偏移。
• 特定值的匹配要注意类型一致：比如单元格存的是数值100，代码里却用字符串"100"比较，会漏统计；如果是带小数的数值，建议用CDbl(cell.Value)统一类型后再和目标值对比，避免因精度问题匹配失败。

2. 统计变量/数组的初始化问题 #

• 统计次数的变量必须在每次循环前重置：比如按行统计时，count变量要放在行循环内部初始化，否则会累计上一行的统计结果，导致次数虚高。示例：

  Dim count As Long ' 用Long避免Integer溢出
  For Each row In tart.Rows
      count = 0 ' 关键：每次统计新行前清零
      For Each cell In row.Cells
          If cell.Value = targetValue Then count = count + 1
      Next
      ' 将count存入数组或进行后续计算
  Next
  

• 如果用数组存储统计结果，要确保数组大小和统计维度匹配：B2:H1222是7列、1221行，要是你按列统计却定义了1221个元素的数组，就会漏统计部分列的数据。

3. 平均值计算的逻辑差异 #

• 你手动用SUM(统计区域)/35，要确认代码里的统计范围和SUM的区域完全一致：比如代码是否遗漏了次数为0的项，或者多统计了额外的行/列。比如如果35是统计的项数，那代码里必须确保遍历了35个统计值，不能多也不能少。
• 避免数据类型溢出：统计次数用Integer的话，当次数超过32767会直接出错，改用Long类型更安全。

4. 最大值/最小值的初始化错误 #

• 初始化最大/最小值时，不能用固定的0或其他默认值，要设为合理的边界值：比如把最大值初始设为-1（假设次数不会为负），最小值初始设为一个远大于可能最大值的数（比如999999）。如果初始值设反了，比如最大值初始为0，而所有统计次数都是负数，结果就会完全错误。示例：

  Dim maxCount As Long, minCount As Long
  maxCount = -1
  minCount = 999999
  For Each num In countArray
      If num > maxCount Then maxCount = num
      If num < minCount Then minCount = num
  Next
  

5. 隐藏/筛选行的影响 #

• Excel的SUM函数默认会忽略自动筛选后的隐藏行，但VBA的For Each cell In tart会遍历所有单元格，包括隐藏的。如果你的数据有筛选或手动隐藏行，两种统计的范围就不一样。可以在代码里加判断：

  If cell.Value = targetValue And Not cell.EntireRow.Hidden Then
      count = count + 1
  End If
  

如果能贴出你的VBA代码，就能精准定位问题，但先按以上几点排查基本能解决大部分情况。

内容的提问来源于stack exchange，提问作者A Pofta Tapofta