Excel跨工作簿匹配复制求助：按Name列同步Address列

DevOps 小满

2026-5-25

嘿，针对你这种上千行数据的跨工作簿匹配需求，我整理了几个实用且高效的解决方案，你可以根据自己的Excel技能和使用场景来选择：

方案1：Excel内置函数（快速上手，适合临时操作）

如果只是偶尔做一次这个操作，用内置函数最方便，推荐用XLOOKUP（Excel 365/2021及以上版本支持，比传统的VLOOKUP更灵活）：

同时打开Book1和Book2，切换到Book2的工作表
在空白辅助列（比如原Address列旁边的新列，先测试避免覆盖原数据）的表头下方第一行输入公式：
```
=XLOOKUP([@Name], Book1!$A:$A, Book1!$B:$B, [@Address], 0)
```
参数解释：
- [@Name]：Book2当前行的Name值
- Book1!$A:$A：Book1中存储Name的整列（根据实际列调整，比如如果Name在C列就改成Book1!$C:$C）
- Book1!$B:$B：Book1中存储Address的整列
- [@Address]：匹配失败时返回Book2原有的Address值
- 0：表示精确匹配
按回车后，公式会自动填充到所有行（如果没自动填充，双击单元格右下角的填充柄即可）
确认结果无误后，选中辅助列的所有数据，右键→复制，然后选中Book2的原Address列，右键→粘贴选项→值，完成替换

如果你的Excel版本没有XLOOKUP，可以用IFERROR+VLOOKUP组合：

=IFERROR(VLOOKUP([@Name], Book1!$A:$B, 2, FALSE), [@Address])

这里2表示Book1中Address列是匹配区域（$A:$B）的第2列，FALSE代表精确匹配，IFERROR会把匹配失败的错误转换成Book2原Address值。

方案2：Power Query（高效处理大数据，适合重复操作）

当数据量上千行时，函数下拉可能会有卡顿，Power Query是Excel内置的ETL工具，处理批量数据更高效：

打开Excel，点击「数据」选项卡→「获取数据」→「从文件」→「从工作簿」，分别导入Book1和Book2的所有数据到Power Query编辑器
在Book2的查询界面，点击「合并查询」→「合并为新查询」：
- 上方选择Book2的Name列作为合并依据
- 下方选择Book1的查询，再选Book1的Name列作为匹配列
- 连接类型选择「左外部」（确保保留Book2的所有行）
点击确定后，会出现一个新的合并列，点击列右侧的展开按钮，只勾选Book1的Address列，重命名为「Book1_Address」
点击「添加列」→「自定义列」，输入公式：
```
= if [Book1_Address] <> null then [Book1_Address] else [Address]
```
这个列就是最终要的Address值
删除原有的「Address」和「Book1_Address」列，把自定义列重命名为「Address」
点击「关闭并上载」，选择替换Book2的原数据（操作前一定要备份原始数据！）

方案3：VBA脚本（自动化批量处理，适合频繁操作）

如果以后需要重复做这个匹配更新，写个VBA宏能节省大量时间，而且字典匹配的效率比逐行循环高很多：

同时打开Book1和Book2，按Alt+F11打开VBA编辑器

右键点击左侧的工作簿名称→「插入」→「模块」，粘贴以下代码：

Sub MatchAndUpdateAddress()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim nameDict As Object
    
    ' 请根据实际工作表名称和列位置修改下面的参数
    Set ws1 = Workbooks("Book1.xlsx").Worksheets("Sheet1") ' Book1的工作表
    Set ws2 = Workbooks("Book2.xlsx").Worksheets("Sheet2") ' Book2的工作表
    Set nameDict = CreateObject("Scripting.Dictionary")
    
    ' 将Book1的Name和Address存入字典（提高匹配速度）
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row ' A列是Name列
    For i = 2 To lastRow1 ' 假设第一行是表头，从第二行开始遍历
        If Not nameDict.Exists(ws1.Cells(i, "A").Value) Then
            nameDict.Add ws1.Cells(i, "A").Value, ws1.Cells(i, "B").Value ' B列是Address列
        End If
    Next i
    
    ' 遍历Book2，匹配并更新Address
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    For j = 2 To lastRow2
        If nameDict.Exists(ws2.Cells(j, "A").Value) Then
            ws2.Cells(j, "B").Value = nameDict(ws2.Cells(j, "A").Value)
        End If
        ' 匹配失败时保留原内容，无需额外处理
    Next j
    
    MsgBox "地址匹配更新完成！"
End Sub

修改代码中的工作表名称、列号（比如Name在C列就把"A"改成"C"），然后点击工具栏的「运行」按钮（绿色三角）即可完成操作

⚠️ 重要提醒：无论用哪种方法，操作前一定要备份Book1和Book2的原始数据，避免误操作导致数据丢失！

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