Excel VBA问题：复制外部表非C列0的最后3行时仅复制一行

原代码核心问题 #

• 每次找到符合条件的行就直接复制，剪贴板会被后续复制内容覆盖，最后仅保留最后一次复制的行，导致粘贴时只有一行。
• 粘贴位置固定在E5，即便复制多行也会全部覆盖到同一位置。
• 未初始化spWB和spWS对象（仅定义未指定具体工作簿/工作表，运行时易引发错误）。
• 循环范围lastRow To lastRow -8最多检查9行，若其中符合条件的行不足3行，无法满足固定复制3行的要求。

修正后的代码 #

Sub AB()
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Dim lastRow As Long, i As Long
    Dim numCopied As Long
    Dim baseWB As Workbook, baseWS As Worksheet
    Dim spWB As Workbook, spWS As Worksheet
    Dim pasteRow As Long ' 记录粘贴起始行
    
    ' 初始化基础工作簿和目标工作表
    Set baseWB = ThisWorkbook
    Set baseWS = baseWB.Sheets("Sheet1") ' 直接指定工作表，避免依赖ActiveSheet
    pasteRow = 5 ' 粘贴起始行：E5
    
    ' 打开目标工作簿（替换为你的目标文件实际路径）
    Set spWB = Workbooks.Open("C:\你的目标文件路径.xlsx")
    Set spWS = spWB.Sheets("目标工作表名称") ' 替换为实际工作表名称
    
    ' 获取目标工作表D列最后一行行号
    lastRow = spWS.Cells(spWS.Rows.Count, "D").End(xlUp).Row
    
    numCopied = 0
    ' 从最后一行向上遍历，直到找到3行符合条件的内容或遍历至表头
    For i = lastRow To 1 Step -1
        ' 判断C列单元格值不为0
        If spWS.Cells(i, "C").Value <> 0 Then
            ' 复制当前行A-AD列，粘贴到基础工作表的对应行
            spWS.Range(spWS.Cells(i, "A"), spWS.Cells(i, "AD")).Copy
            baseWS.Cells(pasteRow, "E").PasteSpecial xlPasteValues
            numCopied = numCopied + 1
            pasteRow = pasteRow + 1 ' 粘贴行下移，避免覆盖
        End If
        ' 凑够3行则退出循环
        If numCopied = 3 Then
            Exit For
        End If
    Next i
    
    ' 【可选】若遍历完所有行仍不足3行，自动填充空行补足（取消注释即可启用）
    ' Do While numCopied < 3
    '     baseWS.Cells(pasteRow, "E").Resize(1, 30).Value = "" ' A-AD共30列
    '     numCopied = numCopied + 1
    '     pasteRow = pasteRow + 1
    ' Loop
    
    ' 关闭目标工作簿，不保存修改
    spWB.Close SaveChanges:=False
    
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True
End Sub

关键修改说明 #

1. 初始化目标对象：添加Workbooks.Open打开目标文件，并明确指定工作表，解决对象未定义的问题。
2. 调整复制粘贴逻辑：每找到一行符合条件的内容就立即粘贴到下一行，避免剪贴板覆盖，保证3行内容都能保留。
3. 优化循环范围：从最后一行遍历至第1行，避免因原循环范围过小导致找不到足够的符合条件的行。
4. 可选补空行逻辑：若目标文件中符合条件的行不足3行，可启用注释代码自动填充空行，满足固定复制3行的要求。

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