VBA嵌套If-Do-While求和异常排查：仅累加前两行且起始行错误

一、源表起始遍历行异常（从1815开始而非第3行） #

这个问题核心是源表起始行的变量初始化逻辑错误，常见原因及修复方案：

• 错误将「源表最后一行」赋值给了起始行变量：如果代码里写了类似srcRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row的语句，这是取源表A列最后有数据的行（即1815），而非预期的第3行。正确做法是拆分起始行与终止行的定义：

  Dim srcStartRow As Long, srcLastRow As Long
  srcStartRow = 3 ' 明确指定起始行
  srcLastRow = wsSrc.Cells(wsSrc.Rows.Count, "A").End(xlUp).Row ' 取源表数据最后一行
  

• 未绑定工作表对象导致上下文错误：如果直接用Rows.Count而非wsSrc.Rows.Count，当当前激活的不是源表时，会获取错误的行数。所有单元格、行的引用必须绑定到指定工作表对象（如wsSrc）。
• 工作表处于筛选状态：如果源表开启了筛选，End(xlUp)会定位到筛选后的最后一行，而非实际数据的最后一行。先取消筛选：wsSrc.AutoFilterMode = False。

二、Do While循环仅累加前两行的问题 #

循环未完整执行的核心原因通常是循环变量未正确递增或匹配条件逻辑失效，排查方向：

1. 循环变量未递增：
   检查Do While循环体内是否有srcRow = srcRow + 1语句。如果没有，循环会一直停留在同一行（或仅执行两次后因其他条件退出），必须在每次循环结束时递增源表行号，确保遍历所有行。
2. 匹配条件未绑定工作表：
   如果匹配时直接用Cells(srcRow, "B")而非wsSrc.Cells(srcRow, "B")，当当前激活的是目标表时，会读取目标表的单元格值，导致匹配逻辑失效，仅前两行巧合匹配。所有条件判断的单元格必须明确指定源表/目标表对象。
3. 求和变量未重置：
   处理目标表每一行前，必须将totalSamples重置为0。如果未重置，前一行的求和结果会累加到当前行，同时可能因后续行不匹配导致看起来只累加了前两行。
4. 字符串匹配的格式问题：
   检查farm/batch列的单元格是否有空格、大小写不一致或格式差异（比如源表是文本格式，目标表是数字格式）。可以用Trim()+UCase()统一匹配规则：

   If Trim(UCase(wsSrc.Cells(srcRow, "B").Value)) = Trim(UCase(wsDest.Cells(destRow, "A").Value)) And _
      Trim(UCase(wsSrc.Cells(srcRow, "C").Value)) = Trim(UCase(wsDest.Cells(destRow, "B").Value)) Then
   

修正后的示例代码 #

Sub CalculateTotalSamples()
    Dim wsSrc As Worksheet, wsDest As Worksheet
    Dim srcStartRow As Long, srcLastRow As Long, destRow As Long
    Dim totalSamples As Double
    
    ' 绑定工作表对象，避免上下文错误
    Set wsSrc = ThisWorkbook.Sheets("Plate Analysis")
    Set wsDest = ThisWorkbook.Sheets("Project Analysis")
    
    ' 初始化行号：源表从第3行开始，目标表起始行根据实际调整
    srcStartRow = 3
    srcLastRow = wsSrc.Cells(wsSrc.Rows.Count, "B").End(xlUp).Row ' 假设B列是farm列
    destRow = 3 ' 目标表起始行
    
    ' 取消源表筛选，确保遍历所有数据
    If wsSrc.AutoFilterMode Then wsSrc.AutoFilterMode = False
    
    ' 遍历目标表每一行
    Do While wsDest.Cells(destRow, "A").Value <> "" ' 假设A列是目标表farm列，直到空行终止
        totalSamples = 0 ' 重置求和变量
        srcRow = srcStartRow ' 每次处理目标行时，从源表起始行重新遍历
        
        ' 遍历源表所有行
        Do While srcRow <= srcLastRow
            ' 匹配farm和batch条件，根据实际列调整
            If Trim(UCase(wsSrc.Cells(srcRow, "B").Value)) = Trim(UCase(wsDest.Cells(destRow, "A").Value)) And _
               Trim(UCase(wsSrc.Cells(srcRow, "C").Value)) = Trim(UCase(wsDest.Cells(destRow, "B").Value)) Then
                totalSamples = totalSamples + wsSrc.Cells(srcRow, "D").Value ' D列为No. of Samples
            End If
            srcRow = srcRow + 1 ' 必须递增源表行号
        Loop
        
        ' 写入求和结果到Total Samples列（假设目标表C列）
        wsDest.Cells(destRow, "C").Value = totalSamples
        destRow = destRow + 1 ' 递增目标表行号
    Loop
End Sub

调试建议 #

• 在循环内添加Debug.Print语句，输出每次循环的行号、匹配值和求和结果，确认逻辑是否正确：

  Debug.Print "源表行号：" & srcRow, "源表Farm：" & wsSrc.Cells(srcRow, "B").Value, "目标表Farm：" & wsDest.Cells(destRow, "A").Value, "当前求和：" & totalSamples
  

• 手动检查源表前几行和后续行的farm/batch值，确认是否真的符合匹配条件，排除数据本身的问题。

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