Excel VBA：两工作表ID匹配并复制对应关联数据实现方案

我经常帮人解决这类Excel数据匹配的问题，用VBA来做确实高效，尤其是数据量比较大的时候，比手动查找快太多了。下面给你一套完整的解决方案，包括思路、代码和细节说明：

核心思路 #

最高效的方式是用**字典（Dictionary）**来存储Sheet1的ID和对应数据，因为字典的键值对查找是O(1)的时间复杂度，比嵌套循环遍历两行数据快得多，尤其是当你的数据有几百上千行的时候，差距会很明显。步骤大概是：

• 把Sheet1里的所有ID和对应数据加载到字典中，ID作为键，要同步的数据作为值
• 遍历Sheet2的每一行ID，在字典里查找对应的键，如果存在就把对应的数据填充到Sheet2的目标列里

完整可运行代码 #

直接复制这段代码到你的Excel VBA编辑器里（按Alt+F11打开），然后修改里面的列号参数适配你的实际表格：

Sub MatchIDAndCopyData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim idDict As Object
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long
    Dim sourceIDCol As Integer, sourceDataCol As Integer
    Dim targetIDCol As Integer, targetDataCol As Integer
    
    ' --------------------------
    ' 这里修改为你的实际列号！
    ' --------------------------
    sourceIDCol = 1 ' Sheet1的ID列（A列=1，B列=2，以此类推）
    sourceDataCol = 2 ' Sheet1的待同步数据列
    targetIDCol = 1 ' Sheet2的ID列
    targetDataCol = 3 ' Sheet2要填充数据的目标列
    
    ' 设置工作表
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    Set idDict = CreateObject("Scripting.Dictionary")
    
    ' 获取Sheet1的最后一行数据
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, sourceIDCol).End(xlUp).Row
    
    ' 加载Sheet1的ID和数据到字典
    For i = 2 To lastRowSource ' 假设第一行是表头，从第2行开始
        Dim currentID As Variant
        currentID = wsSource.Cells(i, sourceIDCol).Value
        ' 避免重复ID，如果有重复，后面的会覆盖前面的（可以根据需求调整）
        If Not idDict.Exists(currentID) Then
            idDict.Add currentID, wsSource.Cells(i, sourceDataCol).Value
        End If
    Next i
    
    ' 获取Sheet2的最后一行数据
    lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, targetIDCol).End(xlUp).Row
    
    ' 遍历Sheet2，匹配ID并填充数据
    For i = 2 To lastRowTarget ' 同样假设第一行是表头
        currentID = wsTarget.Cells(i, targetIDCol).Value
        If idDict.Exists(currentID) Then
            ' 找到匹配的ID，填充数据
            wsTarget.Cells(i, targetDataCol).Value = idDict(currentID)
        Else
            ' 如果ID不存在，可以选择留空或者标记提示
            wsTarget.Cells(i, targetDataCol).Value = "无匹配数据"
            ' 或者注释上面一行，用下面的留空：
            ' wsTarget.Cells(i, targetDataCol).Value = ""
        End If
    Next i
    
    ' 释放对象
    Set idDict = Nothing
    Set wsSource = Nothing
    Set wsTarget = Nothing
    
    MsgBox "数据同步完成！", vbInformation
End Sub

代码细节说明 #

1. 字典的使用：我们用CreateObject("Scripting.Dictionary")创建字典，不需要额外引用库，兼容性更好。如果你的Excel版本允许，也可以提前引用"Microsoft Scripting Runtime"库，这样能获得代码提示。
2. 列号修改：一定要根据你的实际表格修改代码开头的sourceIDCol、sourceDataCol等参数，比如如果Sheet1的ID在C列（第3列），就把sourceIDCol = 3。
3. 表头处理：代码默认第一行是表头，所以从第2行开始遍历数据。如果你的表格没有表头，把循环的起始行改成1即可。
4. 重复ID处理：如果Sheet1里有重复的ID，代码会保留最后一个ID对应的数据。如果需要保留第一个，把If Not idDict.Exists(currentID) Then这个判断去掉就行，但这样后面的重复ID不会覆盖前面的。
5. 无匹配ID的处理：代码里默认标记"无匹配数据"，你可以根据需求改成留空或者其他提示文本。

注意事项 #

• 运行宏之前一定要备份你的Excel文件，避免代码出错导致数据丢失。
• 确保Sheet1和Sheet2的ID格式一致，比如都是文本格式或者都是数字格式，否则可能出现匹配不上的情况（比如Sheet1的ID是文本"123"，Sheet2的是数字123，字典会认为是不同的键）。
• 如果你的数据量特别大（比如几万行），可以考虑关闭屏幕更新来加快运行速度，在代码开头加上Application.ScreenUpdating = False，结尾加上Application.ScreenUpdating = True。

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