如何在VBA中识别两个Excel工作簿之间的新增行？

需求说明 #

要编写VBA宏处理两个Excel工作簿，找出第二个工作簿（WB2）中存在但第一个工作簿（WB1）没有的新增行。比如示例里WB2中的"X"行就是新增行，由于新增行导致逐行直接对比会错位，但两行数仅30-40行，可采用遍历检查的思路。

核心思路 #

利用行内容唯一标识+字典快速查找的方式，避开逐行对比的错位问题：

• 先将WB1的每一行内容拼接成唯一字符串，存入字典（相当于建立WB1的行内容索引）
• 遍历WB2的每一行，同样生成唯一字符串，检查是否在WB1的字典中：不在的就是新增行

示例VBA代码 #

Sub FindNewRows()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim rowDict As Object
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
    Dim rowKey As String
    Dim delim As String: delim = "|" ' 选一个不会出现在单元格内容里的分隔符

    ' 替换为你的工作簿名称，也可改为按文件路径打开
    Set wb1 = Workbooks("WB1.xlsx")
    Set wb2 = Workbooks("WB2.xlsx")
    Set ws1 = wb1.Sheets(1) ' 按需修改目标工作表
    Set ws2 = wb2.Sheets(1)
    Set rowDict = CreateObject("Scripting.Dictionary")

    ' 把WB1的所有行存入字典
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    For i = 1 To lastRow1
        rowKey = ""
        ' 假设对比A到Z列，可按需调整列范围
        For j = 1 To 26
            If ws1.Cells(i, j).Value <> "" Then
                rowKey = rowKey & ws1.Cells(i, j).Value & delim
            End If
        Next j
        ' 移除末尾多余的分隔符
        If Len(rowKey) > 0 Then rowKey = Left(rowKey, Len(rowKey) - Len(delim))
        If Not rowDict.Exists(rowKey) Then
            rowDict.Add rowKey, True
        End If
    Next i

    ' 遍历WB2标记新增行
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    For i = 1 To lastRow2
        rowKey = ""
        For j = 1 To 26
            If ws2.Cells(i, j).Value <> "" Then
                rowKey = rowKey & ws2.Cells(i, j).Value & delim
            End If
        Next j
        If Len(rowKey) > 0 Then rowKey = Left(rowKey, Len(rowKey) - Len(delim))
        If Not rowDict.Exists(rowKey) Then
            ' 标记新增行：这里用黄色填充整行，可替换为复制到新表等操作
            ws2.Rows(i).Interior.Color = vbYellow
        End If
    Next i

    MsgBox "新增行识别完成！"
    ' 释放对象
    Set rowDict = Nothing
    Set ws1 = Nothing: Set ws2 = Nothing
    Set wb1 = Nothing: Set wb2 = Nothing
End Sub

注意事项 #

• 分隔符要选不会出现在单元格内容中的字符，比如|或^，防止不同行拼接后字符串重复导致误判。
• 如果只需要对比特定列（比如仅A列），可以简化拼接逻辑，只取对应列的内容。
• 由于行数仅30-40，即使嵌套循环也不会有性能问题，无需额外优化。

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