Excel：按首列匹配从Sheet2批量补全Sheet1缺失数据

针对你这个批量匹配填充缺失数据的需求，我给你两个实用的自动化方案，分别适合不同场景：

如果你不想碰代码，用VLOOKUP配合IFERROR就能搞定，操作简单还稳定。

假设：

• Sheet1的「name」字段在A列，需要填充的后续3个单元格是B、C、D列
• Sheet2的「name」字段在A列，对应要复制的后续3个单元格是B、C、D列

操作步骤：

1. 选中Sheet1的B2单元格，输入以下公式：
   =IFERROR(VLOOKUP($A2,Sheet2!$A:$D,COLUMN(),FALSE),"")
2. 把公式向右拖动到D2单元格（覆盖需要填充的3列）
3. 再把B2:D2的公式向下拖动到Sheet1的最后一行数据

公式说明： #

• $A2：锁定name列的列号，确保拖动公式时始终用当前行的name去匹配
• Sheet2!$A:$D：指定Sheet2的数据源范围，包含name和要复制的3列数据
• COLUMN()：自动返回当前单元格的列号（比如B列是2，对应取Sheet2的第2列），不用手动修改数字，方便批量拖动
• IFERROR(...)：如果找不到匹配的name，返回空值，避免显示#N/A错误

填充完成后，你可以把公式转成静态值（选中填充区域→右键→复制→右键→粘贴选项→值），防止后续修改数据源时公式自动更新。

如果以后还要经常处理这类批量匹配任务，写个VBA宏会更高效，运行一次就能完成9000行的处理，速度比公式更快。

操作步骤：

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的「工程资源管理器」中，右键点击你的工作簿名称→选择「插入」→「模块」
3. 将下面的代码粘贴到模块窗口中：

Sub FillMissingData()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long
    Dim matchCell As Range
    
    ' 定义要操作的两个工作表
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取两个工作表的最后一行行号（避免遍历空行）
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Sheet1的每一行数据（假设第1行是表头，从第2行开始）
    For i = 2 To lastRow1
        ' 在Sheet2的A列查找匹配的name
        Set matchCell = ws2.Range("A2:A" & lastRow2).Find( _
            What:=ws1.Cells(i, "A").Value, _
            LookIn:=xlValues, _
            LookAt:=xlWhole) ' 精确匹配
        
        ' 如果找到匹配项，复制后续3列数据到Sheet1
        If Not matchCell Is Nothing Then
            ws1.Cells(i, "B").Resize(1, 3).Value = ws2.Cells(matchCell.Row, "B").Resize(1, 3).Value
        End If
    Next i
    
    ' 完成后提示
    MsgBox "缺失数据已批量填充完成！", vbInformation
End Sub

4. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」→选择FillMissingData→点击「执行」

代码说明： #

• 用Find方法代替逐行遍历，查找匹配项的效率更高，适合9000行的大数据量
• 一次性复制3列数据，比逐个单元格复制更快
• 自动获取最后一行，不用手动指定数据范围，适配不同行数的表格

注意事项： #

• 确保两个表的「name」字段格式一致（比如都是文本格式），避免因格式差异导致匹配失败
• 如果Sheet2中有重复的name，Find会返回第一个匹配项，所以建议Sheet2的name列保持唯一
• 运行宏前最好备份文件，防止意外情况

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