跨Excel文件按首列编号比对公共行单元格的功能需求

没问题，我帮你把原来的同文件工作表比对逻辑改成跨两个Excel文件、按A列编号匹配行的版本，直接能用的VBA代码和详细说明如下：

核心逻辑是先给第二个文件的A列编号建立快速映射，再遍历第一个文件的每一行，通过编号找到对应行后逐单元格比对，最后高亮差异：

• 让用户可视化选择两个要比对的Excel文件
• 把第二个文件的「A列编号-行号」存入字典，实现O(1)快速查找
• 遍历第一个文件的每一行，根据编号匹配第二个文件的对应行
• 逐单元格比对内容，不一致则高亮第一个文件的单元格；找不到匹配编号的行也做特殊高亮
• 完成后自动提示并整理文件状态

Sub CompareTwoExcelFilesByID()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim idMap As Object ' 存储第二个文件的ID到行号的映射
    Dim lastRow1 As Long, lastRow2 As Long
    Dim lastCol1 As Long, lastCol2 As Long
    Dim i As Long, j As Long
    Dim currentID As String
    Dim matchRow As Variant
    
    ' 创建字典对象用于快速查找ID对应的行号
    Set idMap = CreateObject("Scripting.Dictionary")
    
    ' 选择第一个文件（差异会高亮在此文件中）
    Dim filePath1 As Variant
    filePath1 = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="选择第一个文件（差异高亮目标）")
    If filePath1 = False Then Exit Sub ' 用户取消选择则退出
    Set wb1 = Workbooks.Open(filePath1)
    Set ws1 = wb1.Sheets(1) ' 默认取第一个工作表，可根据需求修改为指定表名
    
    ' 选择第二个文件（比对的基准文件）
    Dim filePath2 As Variant
    filePath2 = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx;*.xls), *.xlsx;*.xls", Title:="选择第二个文件（比对基准）")
    If filePath2 = False Then
        wb1.Close SaveChanges:=False
        Exit Sub
    End If
    Set wb2 = Workbooks.Open(filePath2)
    Set ws2 = wb2.Sheets(1) ' 默认取第一个工作表，可修改
    
    ' 获取第二个文件的数据范围边界
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    lastCol2 = ws2.Cells(1, ws2.Columns.Count).End(xlToLeft).Column
    
    ' 构建ID映射表（跳过表头，从第二行开始）
    For i = 2 To lastRow2
        currentID = Trim(ws2.Cells(i, "A").Value)
        ' 只存储非空且未重复的ID
        If currentID <> "" And Not idMap.Exists(currentID) Then
            idMap.Add currentID, i
        End If
    Next i
    
    ' 获取第一个文件的数据范围边界
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastCol1 = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column
    
    ' 清除之前的高亮格式，避免干扰
    ws1.Cells.Interior.ColorIndex = xlNone
    
    ' 遍历第一个文件的每一行进行比对
    For i = 2 To lastRow1 ' 假设第一行是表头，若没有表头则改为i=1
        currentID = Trim(ws1.Cells(i, "A").Value)
        If currentID <> "" Then
            If idMap.Exists(currentID) Then
                ' 找到匹配的行，开始逐单元格比对
                matchRow = idMap(currentID)
                ' 只比对两个文件都有的列
                For j = 1 To Application.Min(lastCol1, lastCol2)
                    If ws1.Cells(i, j).Value <> ws2.Cells(matchRow, j).Value Then
                        ' 高亮差异单元格，这里用黄色，可自定义颜色
                        ws1.Cells(i, j).Interior.Color = RGB(255, 255, 0)
                    End If
                Next j
            Else
                ' 找不到对应ID的行，用浅红色高亮整行
                ws1.Rows(i).Interior.Color = RGB(255, 153, 153)
            End If
        End If
    Next i
    
    ' 比对完成提示
    MsgBox "比对完成！已在第一个文件中标记差异：" & vbCrLf & _
           "- 黄色：单元格内容不一致" & vbCrLf & _
           "- 浅红色：第二个文件中无对应编号的行", vbInformation
    
    ' 关闭基准文件（不保存）
    wb2.Close SaveChanges:=False
    
    ' 切换到目标文件方便查看
    wb1.Activate
End Sub

1. 打开Excel，按下Alt + F11打开VBA编辑器
2. 右键点击左侧的当前工作簿名称 → 插入 → 模块
3. 将上面的代码粘贴到模块窗口中
4. 按下F5运行宏，或者回到Excel界面，通过「开发工具」→「宏」选择CompareTwoExcelFilesByID运行
5. 按照弹窗提示依次选择两个要比对的Excel文件即可

• 表头处理：如果你的文件没有表头，把代码中循环的起始行2改成1即可
• 颜色自定义：修改RGB()的值可以调整高亮颜色，比如改成RGB(255,0,0)就是红色
• 指定工作表：如果要比对的不是第一个工作表，把wb1.Sheets(1)改成wb1.Sheets("你的表名")即可
• 格式匹配：确保两个文件的A列编号格式一致（比如都是文本或数字），避免因格式差异导致匹配失败

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