运行VBA代码时最后一行被重复复制的问题修复请求

问题现象 #

运行给定VBA代码时，无法正确复制Universe工作表中M列值为"Onboarding Begun by SAM"的行，反而会重复复制符合条件的最后一行，甚至无限复制导致程序崩溃。

示例数据（Universe工作表）：

预期结果：Onboarding Begun by SAM工作表中显示ABC、ABE对应的两行数据。
实际结果：不断重复复制ABE行，直到程序崩溃。

原代码问题分析 #

1. 嵌套循环逻辑完全错误：内层循环遍历目标表的xlRange，只要单元格值不等于当前要复制的A列值就执行复制——这意味着每碰到一个不匹配的单元格就复制一次当前行，完全偏离了“仅复制未存在行”的需求。
2. 目标表范围初始化错误：如果目标表一开始是空的，Range("A1").End(xlDown).Row会返回Excel的最大行号，导致xlRange范围异常，进一步触发错误的复制逻辑。
3. 变量声明不规范：Dim lRow, cRow As Long里lRow是Variant类型，应该明确声明为Long。
4. 行号获取效率低且有漏洞：每次复制都调用Range("A50000").End(xlUp).Row，还没考虑目标表为空的情况。

修复后的代码 #

Sub CopyDataBasedOnStatusCondition()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim j As Long, matchRow As Variant
    Dim valueToFind As String
    
    ' 定义工作表对象，减少重复查找开销
    Set wsSource = ThisWorkbook.Sheets("Universe")
    Set wsTarget = ThisWorkbook.Sheets("Onboarding Begun by SAM")
    
    ' 可靠获取源表最后一行（避免中间空行导致的错误）
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历源表数据行（假设第1行是表头，从第2行开始）
    For j = 2 To lastRowSource
        ' 检查M列是否符合条件
        If wsSource.Cells(j, "M").Value = "Onboarding Begun by SAM" Then
            valueToFind = wsSource.Cells(j, "A").Value
            
            ' 在目标表A列查找当前值是否已存在
            matchRow = Application.Match(valueToFind, wsTarget.Columns("A"), 0)
            
            ' 不存在匹配项时才复制整行
            If IsError(matchRow) Then
                lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
                ' 处理目标表为空的情况，确保从第2行开始复制（保留表头）
                If lastRowTarget = 1 And wsTarget.Cells(1, "A").Value = "" Then
                    lastRowTarget = 0
                End If
                wsSource.Rows(j).Copy Destination:=wsTarget.Cells(lastRowTarget + 1, "A")
            End If
        End If
    Next j
    
    ' 可选：如果需要清理目标表已有的重复数据，取消注释下面一行
    ' wsTarget.Range("A1:R" & wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row).RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

修复要点 #

• 用工作表对象简化代码：直接定义wsSource和wsTarget，避免反复调用Sheets()，代码更简洁高效。
• 可靠获取最后一行：使用Cells(Rows.Count, "A").End(xlUp).Row，不管中间有没有空行都能准确拿到最后一行的行号。
• 正确检查行是否已存在：用Application.Match在目标表A列查找标识值，只有不存在时才复制，彻底避免重复。
• 处理空表情况：判断目标表是否为空，确保复制时不会覆盖表头或者从错误的行开始。
• 规范变量类型：所有变量都明确声明类型，避免Variant类型带来的潜在问题。

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