如何基于唯一ID列将Excel工作表B匹配行内容更新到工作表A

需求说明 #

有两个列标题完全一致的Excel工作表：工作表A、工作表B，两表均包含名为「ID」的列，单表内ID唯一无重复，仅部分ID在两表中同时存在。
需要实现：当ID在两表中匹配时，将工作表B中该行除ID外的所有列内容，覆盖更新到工作表A中对应ID行的同名列位置。
比如示例中A表ID为7的行，更新后Build列值会变为SUPERCAR。

示例表数据 #

工作表A #

ID      Color   Make      Build
A5      red     toyota    corolla
7       blue    nissan    blah
3       red     blahblah  bloo
6       blue    toyota    corolla
9       red     nissan    blah
54      blue    blahblah  bloo
987     red     nissan    blah
432432  white   car       car

工作表B #

ID  Color   Make      Build
3   green   blahblah  bloo
6   blue    toyota    corolla
A5  red     toyota    corolla
7   blue    nissan    SUPERCAR
9   yellow  Tesla     blah
54  blue    blahblah  bloo
987 red     nissan    blah

原代码问题分析 #

你提供的初步代码存在几个问题：

• 循环范围硬编码为2 to 8，无法适配表行数变化的场景，也会漏掉A表中比B表多的行（比如示例中A表ID为432432的行）
• 变量ID声明为Long类型，但ID可能包含字母（如示例中的A5），运行时会报错，且该变量声明后未使用
• VBA没有Continue关键字，属于语法错误
• 双层全量循环效率低，数据量较大时运行速度很慢

正确实现方案 #

方案1：基础适配版（小数据量适用） #

适合数据量在千行以内的场景，逻辑简单易修改：

Private Sub CommandButton_Click()
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRowA As Long, lastRowB As Long
    Dim i As Long, j As Long
    
    ' 替换为你实际的工作表名称
    Set wsA = Sheets("Sheet1")
    Set wsB = Sheets("Sheet2")
    
    ' 自动获取两表的最后一行行号
    lastRowA = wsA.Cells(wsA.Rows.Count, 1).End(xlUp).Row
    lastRowB = wsB.Cells(wsB.Rows.Count, 1).End(xlUp).Row
    
    ' 遍历A表所有数据行
    For i = 2 To lastRowA
        ' 遍历B表所有数据行匹配ID
        For j = 2 To lastRowB
            If wsA.Cells(i, 1).Value = wsB.Cells(j, 1).Value Then
                ' 匹配到则更新三列内容
                wsA.Cells(i, 2).Value = wsB.Cells(j, 2).Value
                wsA.Cells(i, 3).Value = wsB.Cells(j, 3).Value
                wsA.Cells(i, 4).Value = wsB.Cells(j, 4).Value
                ' 匹配到就提前退出内层循环，提升效率
                Exit For
            End If
        Next j
    Next i
    
    ' 可选：运行完成提示
    MsgBox "数据同步完成"
End Sub

方案2：字典高效版（大数据量适用） #

适合数据量过千行的场景，仅需遍历两次表，运行效率远高于双层循环：

Private Sub CommandButton_Click()
    Dim wsA As Worksheet, wsB As Worksheet
    Dim lastRowA As Long, lastRowB As Long
    Dim i As Long, j As Long, dict As Object
    
    ' 后期绑定字典，无需手动添加引用
    Set dict = CreateObject("Scripting.Dictionary")
    ' 替换为你实际的工作表名称
    Set wsA = Sheets("Sheet1")
    Set wsB = Sheets("Sheet2")
    
    ' 自动获取两表的最后一行行号
    lastRowA = wsA.Cells(wsA.Rows.Count, 1).End(xlUp).Row
    lastRowB = wsB.Cells(wsB.Rows.Count, 1).End(xlUp).Row
    
    ' 先把B表的ID和对应行号存入字典
    For i = 2 To lastRowB
        ' 避免ID大小写敏感问题，可根据需求去掉Lcase转换
        dict(LCase(wsB.Cells(i, 1).Value)) = i
    Next i
    
    ' 遍历A表匹配ID更新
    For i = 2 To lastRowA
        If dict.exists(LCase(wsA.Cells(i, 1).Value)) Then
            j = dict(LCase(wsA.Cells(i, 1).Value))
            wsA.Cells(i, 2).Value = wsB.Cells(j, 2).Value
            wsA.Cells(i, 3).Value = wsB.Cells(j, 3).Value
            wsA.Cells(i, 4).Value = wsB.Cells(j, 4).Value
        End If
    Next i
    
    ' 释放对象
    Set dict = Nothing
    MsgBox "数据同步完成"
End Sub

使用注意 #

• 运行代码前请先备份原文件，避免误操作导致数据丢失
• 如果你的列数超过4列，可以修改赋值部分的代码，或者直接整行复制对应范围
• 如果需要区分ID大小写，删除代码中LCase转换函数即可

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