VBA循环计数偏差问题：计数多1或少1的排查方案

以下是针对你代码中计数偏差问题的具体排查点和修复方法：

1. 核心问题：行号对应错误（最可能导致偏差） #

原因 #

代码中通过importRng.Row直接取工作表行号匹配complexityNameRange2的条件名称，若totalSearch和complexityNameRange2的起始行不一致（比如其中一个范围跳过表头或空行），会导致取错条件名称，进而出现计数多算/少算。

修复代码 #

替换原代码中conditionName = complexityNameRange2.Cells(importRng.Row, 1).Value这一行，改用相对行号匹配：

' 计算当前员工在搜索范围中的相对位置
Dim relativeRow As Long
relativeRow = importRng.Row - totalSearch.Row + 1
' 用相对行号取对应条件名称
conditionName = complexityNameRange2.Cells(relativeRow, 1).Value

2. 重复计数同一个条件 #

原因 #

若complexityNameRange1（条件列表）中存在重复的条件名称，且对应的复杂度等于当前循环值x，每次匹配会重复累加计数，导致结果多1甚至更多。

修复代码 #

利用字典存储唯一条件及其复杂度，避免重复遍历和计数：

1. 替换原字典初始化逻辑：

Set dict = CreateObject("Scripting.Dictionary")
dict.compareMode = vbTextCompare

' 将条件名称与对应复杂度存入字典（自动去重）
For Each rng In complexityNameRange1
    If Not dict.exists(rng.Value) Then
        dict.Add rng.Value, rng.Offset(0, 8).Value
    End If
Next rng

2. 替换原条件匹配循环（删除For Each condition In complexityNameRange1整个循环）：

If dict.exists(conditionName) Then
    ' 检查条件复杂度是否匹配当前x
    If dict(conditionName) = x Then
        i = i + 1
    End If
End If

3. 数据范围包含空白行或未覆盖全量数据 #

原因 #

原代码用searchNameRange.End(xlDown)确定范围末尾，若数据中间存在空白行，会提前终止范围，导致漏统计部分数据；若底部有空白行，也可能出现范围截取不全的问题。

修复代码 #

改用从底部向上查找的方式确定数据范围：

' 修复totalSearch范围
Set totalSearch = wsNext.Range(searchNameRange, wsNext.Cells(wsNext.Rows.Count, searchNameRange.Column).End(xlUp))

' 修复complexityNameRange2范围（在原查找searchHeader2的循环内）
Set complexityNameRange2 = wsNext.Range(rng.Offset(1, 0), wsNext.Cells(wsNext.Rows.Count, rng.Column).End(xlUp))

4. 空格/空值导致匹配异常 #

原因 #

员工姓名或条件名称前后存在空格，会导致本该匹配的项无法匹配（少算），或错误匹配（多算）。

修复代码 #

在赋值和匹配时去除前后空格：

' 员工姓名赋值时去空格
targetName = Trim(rng.Value)

' 匹配员工姓名时去空格
If Trim(importRng.Value) = targetName Then
    ' 条件名称去空格
    conditionName = Trim(complexityNameRange2.Cells(relativeRow, 1).Value)
    ' ...后续逻辑
End If

5. 验证步骤 #

修复后建议针对偏差数据做以下验证：

• 选取计数错误的员工，手动核对NCINO报告中其对应的条件数量
• 检查complexityNameRange1中是否有重复条件
• 确认totalSearch和complexityNameRange2的范围是否覆盖所有有效数据行

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