VBA实现：当A列无匹配时将Master工作表整行复制到New工作表

问题分析 #

你的代码存在两个关键问题：

1. 笔误：计算New工作表最后一行时错误引用了Worksheets("test")，导致定位错误
2. 仅复制A列：代码只赋值了ID列的值，未处理整行数据

同时，因为两个工作表都是表格格式（ListObject），直接操作表格对象比普通单元格更稳定，能自动维护表格结构。

方案1：修正普通单元格版本代码 #

此版本基于你原有的思路，修复笔误并实现整行复制：

Sub compare()
    Dim i As Long
    Dim lrs As Long
    Dim lrd As Long
    Dim masterWS As Worksheet, newWS As Worksheet
    
    ' 提前定义工作表引用，避免重复调用
    Set masterWS = Worksheets("Master")
    Set newWS = Worksheets("New")
    
    With masterWS
        lrs = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To lrs ' 假设表头在第1行
            ' 检查当前ID是否不存在于New工作表的A列
            If IsError(Application.Match(.Cells(i, 1).Value, newWS.Columns(1), 0)) Then
                ' 获取New工作表的最后一行行号
                lrd = newWS.Cells(newWS.Rows.Count, 1).End(xlUp).Row
                ' 复制整行到New工作表的下一行
                .Rows(i).Copy Destination:=newWS.Rows(lrd + 1)
                ' 若只需复制值（不含格式），可替换为以下两行：
                ' .Rows(i).Copy
                ' newWS.Rows(lrd + 1).PasteSpecial xlPasteValues
            End If
        Next i
    End With
    Application.CutCopyMode = False ' 清除复制模式
End Sub

方案2：适配表格格式的专业版本 #

因为你提到两个都是表格格式，使用ListObject对象操作更符合表格特性，自动维护表格结构（如格式、公式、筛选等）：

Sub CompareTables()
    Dim masterTable As ListObject, newTable As ListObject
    Dim masterRow As ListRow
    Dim idExists As Boolean
    Dim newRow As ListRow
    
    ' 替换为你的实际表格名称（在表格设计选项卡中查看）
    Set masterTable = Worksheets("Master").ListObjects("Table1")
    Set newTable = Worksheets("New").ListObjects("Table2")
    
    ' 遍历Master表格的每一行数据
    For Each masterRow In masterTable.ListRows
        ' 判断New表格是否有数据行
        If newTable.DataBodyRange Is Nothing Then
            idExists = False ' 空表格则所有ID都不存在
        Else
            ' 检查当前ID是否存在于New表格的第一列
            idExists = Not IsError(Application.Match(masterRow.Range(1).Value, newTable.ListColumns(1).DataBodyRange, 0))
        End If
        
        ' 若ID不存在，添加到New表格末尾
        If Not idExists Then
            Set newRow = newTable.ListRows.Add
            ' 复制整行值到新行（保留格式）
            masterRow.Range.Copy
            newRow.Range.PasteSpecial xlPasteValuesAndNumberFormats
        End If
    Next masterRow
    
    Application.CutCopyMode = False
End Sub

使用说明 #

1. 替换代码中的Table1和Table2为你实际的表格名称
2. 此版本会自动将新行添加到表格内部，而非表格下方的普通单元格
3. 支持空表格的情况（New表格无数据时会全部复制）

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