带嵌套循环的Excel VBA好友提名统计出现计数错误求助

我有一份学生社交网络数据集，每位学生（ego）最多可选10位亲密好友。编写的VBA宏需实现以下功能：

• 遍历A列的每个ego，统计其在B至K列的出现次数（代表被好友提名）
• 对每个找到的ego，通过M、N、O列的VLookup对照表，对比该ego与提名者的Class和SEN属性
• 在Q至X列输出对应属性组合的计数（例如YY_SC代表被同班级（SC）且同SEN（YY）的学生选中）

但宏运行后计数总是少统计1个，预期结果应为每个ego被不同属性好友提名的次数对应显示在Q至X列。

数据布局 #

• A列：学生ID（ego）
• B至K列：好友提名（最多10位）
• M列：学生ID（VLookup匹配用）
• N列：Class属性
• O列：SEN属性
• Q至X列：输出计数

1. 循环边界设置错误 #

VBA遍历行时，若终止条件未覆盖所有数据行（比如误将lastRow减1，或起始行/结束行逻辑错误），会直接漏统计最后一条或第一条数据。

修正示例：

Dim lastRow As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row
' 假设第1行是表头，从第2行遍历到最后一行数据
For i = 2 To lastRow
    ' 核心处理逻辑
Next i

2. VLookup未启用精确匹配 #

VLookup默认使用近似匹配（range_lookup参数缺省为True），若M列的学生ID未排序，会导致匹配失效，漏统计部分提名记录。必须显式设置为精确匹配：

错误写法：

egoClass = Application.VLookup(egoID, Range("M:O"), 2)

修正写法：

egoClass = Application.VLookup(egoID, Range("M:O"), 2, False)
' 增加错误捕获，避免未匹配到ID时中断统计
If IsError(egoClass) Then egoClass = ""

3. 计数变量初始化位置错误 #

若计数变量（如yyScCount）在循环外部初始化，会累计上一个ego的计数；若在循环内部初始化但漏处理第一个匹配项，会直接少统计1次。

正确初始化逻辑：

For i = 2 To lastRow
    ' 对当前ego，重置所有属性组合的计数为0
    Dim yyScCount As Integer, yyDcCount As Integer ' 其他组合同理
    yyScCount = 0
    yyDcCount = 0
    
    ' 遍历B-K列的好友提名（B是第2列，K是第11列）
    For j = 2 To 11
        nominatorID = Cells(i, j).Value
        ' 跳过空单元格（学生未选满10位好友的情况）
        If Trim(nominatorID) <> "" Then
            ' 获取提名者的Class和SEN属性
            nominatorClass = Application.VLookup(nominatorID, Range("M:O"), 2, False)
            nominatorSEN = Application.VLookup(nominatorID, Range("M:O"), 3, False)
            
            ' 对比属性并计数
            If nominatorClass = egoClass And nominatorSEN = egoSEN Then
                yyScCount = yyScCount + 1
            End If
            ' 其他属性组合的判断逻辑
        End If
    Next j
    
    ' 将计数写入对应输出列（Q是第17列，或直接用列名）
    Cells(i, "Q").Value = yyScCount
Next i

4. 未跳过空提名单元格 #

B-K列存在空单元格时，若直接执行VLookup会返回错误值，若错误处理不当会跳过该单元格的统计逻辑，导致漏统计。必须添加空值判断，如上述代码中的If Trim(nominatorID) <> "" Then。

5. 输出列索引对应错误 #

若Q-X列的属性组合映射写错（比如把YY_SC写到了R列而非Q列），会造成“计数少1”的假象，实际是统计结果写入了错误列。建议直接用列名引用避免索引错误：

Cells(i, "Q").Value = yyScCount ' YY_SC对应Q列
Cells(i, "R").Value = yyDcCount ' YY_DC对应R列
' 其他列同理

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