基于匹配参考编号，实现工作表间数据复制的VBA Macro需求

核心逻辑说明 #

通过字典快速映射MasterBooks中参考编号对应的行号，再遍历Books工作表的每一行数据，根据参考编号找到对应行，将数据写入匹配的列中。

完整VBA代码 #

Sub MatchBooksToMaster()
    Dim wsBooks As Worksheet, wsMaster As Worksheet
    Dim masterDict As Object
    Dim lastRowBooks As Long, lastRowMaster As Long
    Dim i As Long, masterRow As Variant
    Dim refColBooks As Integer, refColMaster As Integer
    Dim colMap As Object ' 存储Books列名到MasterBooks列名的映射
    
    ' 定义工作表
    Set wsBooks = ThisWorkbook.Worksheets("Books")
    Set wsMaster = ThisWorkbook.Worksheets("MasterBooks")
    Set masterDict = CreateObject("Scripting.Dictionary")
    Set colMap = CreateObject("Scripting.Dictionary")
    
    ' 设置参考编号所在列（根据你的表格调整，比如A列是参考编号就设为1）
    refColBooks = 1
    refColMaster = 1
    
    ' 建立列名映射（Books列名 -> MasterBooks列名，根据你的实际列名修改）
    colMap("书名") = "书名"
    colMap("作者") = "作者"
    colMap("价格") = "价格"
    ' 可根据需要添加更多列映射
    
    ' 遍历MasterBooks，存储参考编号和对应行号
    lastRowMaster = wsMaster.Cells(wsMaster.Rows.Count, refColMaster).End(xlUp).Row
    For i = 2 To lastRowMaster ' 假设第1行是表头
        If Not masterDict.Exists(wsMaster.Cells(i, refColMaster).Value) Then
            masterDict.Add wsMaster.Cells(i, refColMaster).Value, i
        End If
    Next i
    
    ' 遍历Books，匹配参考编号并写入数据
    lastRowBooks = wsBooks.Cells(wsBooks.Rows.Count, refColBooks).End(xlUp).Row
    For i = 2 To lastRowBooks ' 假设第1行是表头
        ' 获取当前行的参考编号对应的Master行号
        masterRow = masterDict(wsBooks.Cells(i, refColMaster).Value)
        
        ' 如果找到匹配的行，写入对应列数据
        If Not IsEmpty(masterRow) Then
            Dim colName As Variant
            For Each colName In colMap.Keys
                Dim booksCol As Integer, masterCol As Integer
                ' 找到Books中当前列名的列号
                booksCol = wsBooks.Rows(1).Find(colName, LookIn:=xlValues, LookAt:=xlWhole).Column
                ' 找到MasterBooks中目标列名的列号
                masterCol = wsMaster.Rows(1).Find(colMap(colName), LookIn:=xlValues, LookAt:=xlWhole).Column
                ' 写入数据
                wsMaster.Cells(masterRow, masterCol).Value = wsBooks.Cells(i, booksCol).Value
            Next colName
        End If
    Next i
    
    MsgBox "数据匹配完成！", vbInformation
End Sub

使用说明 #

1. 打开目标Excel工作簿，按Alt + F11打开VBA编辑器
2. 右键点击工作簿名称，选择「插入」→「模块」
3. 将上述代码粘贴到模块中
4. 根据你的实际表格调整以下部分：
   • refColBooks和refColMaster：设置参考编号所在的列号（比如A列是1，B列是2）
   • colMap中的列名映射：确保Books的列名和MasterBooks的目标列名对应
5. 按F5运行宏，或回到Excel通过「开发工具」→「宏」执行

关键要点 #

• 用字典masterDict存储参考编号与行号的映射，避免逐行查找的低效问题
• 列名映射colMap让代码更灵活，无需硬编码列号，适配列顺序变化
• 假设两张表的第1行都是表头，若你的表头行不同，修改循环起始行即可

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