Excel跨工作表数据匹配难题：如何同步员工ID对应的日期与版本数据？

不一定非要用VBA，先排查你原公式失效的原因，再试试以下几种更可靠的方案：

一、原公式失效的常见原因 #

你的公式=IF($A2<>"", INDEX(Sheet2!C:C, MATCH($A2, Sheet2!A:A, 0)), "")不生效，大概率是这几个问题：

• 数据工作表（Sheet2）A列的ID和目标表A列的ID格式不匹配（比如一个是数值、一个是文本，或者存在看不见的空格）
• Sheet2的C列并非你要提取的目标数据列（比如Issue Date实际在B列而非C列）
• 目标表的ID在Sheet2中不存在，导致MATCH返回#N/A错误

二、无需VBA的公式解决方案 #

方案1：修正INDEX+MATCH（兼容所有Excel版本） #

假设：

• Sheet2：A列=ID，B列=Issue Date，C列=Validation Date，D列=Revision
• 目标表：A列=ID，B列要放Issue Date，C列放Validation Date，D列放Revision

目标表B2单元格输入以下公式，然后横向拖拽到C2、D2，再纵向拖拽整列即可：

=IF($A2="","",IFERROR(INDEX(Sheet2!B:B,MATCH($A2,Sheet2!A:A,0)),"无匹配数据"))

加IFERROR是为了避免匹配不到时显示错误值，更友好。

注意：先把两边ID列的格式统一设为「文本」，彻底解决格式不匹配问题。

方案2：用XLOOKUP（Excel 365/2021及以上版本） #

XLOOKUP比INDEX+MATCH更简洁，目标表B2公式：

=IF($A2="","",XLOOKUP($A2,Sheet2!A:A,Sheet2!B:B,"无匹配数据"))

同样横向拖拽到其他列，纵向覆盖所有行，一次设置完成。

方案3：动态数组自动填充（Excel 365专属） #

如果用Excel 365，只需在目标表B1单元格输入一次公式，就能自动溢出填充整列，数据源更新后会自动同步：

=IF(A:A="","",XLOOKUP(A:A,Sheet2!A:A,Sheet2!B:B,"无匹配数据"))

三、批量自动化的VBA方案（可选） #

如果数据量极大，或者需要一键同步，用VBA更高效。按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码（记得修改工作表名称为你实际的表名）：

Sub SyncIDData()
    Dim sourceSheet As Worksheet, targetSheet As Worksheet
    Dim lastSourceRow As Long, lastTargetRow As Long
    Dim targetID As Range
    
    ' 替换为你的实际工作表名称
    Set sourceSheet = ThisWorkbook.Worksheets("Sheet2")
    Set targetSheet = ThisWorkbook.Worksheets("目标表")
    
    lastSourceRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    lastTargetRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历目标表的ID列，匹配并写入数据
    For Each targetID In targetSheet.Range("A2:A" & lastTargetRow)
        If targetID.Value <> "" Then
            On Error Resume Next
            targetID.Offset(0, 1).Value = Application.VLookup(targetID.Value, sourceSheet.Range("A2:D" & lastSourceRow), 2, False)
            targetID.Offset(0, 2).Value = Application.VLookup(targetID.Value, sourceSheet.Range("A2:D" & lastSourceRow), 3, False)
            targetID.Offset(0, 3).Value = Application.VLookup(targetID.Value, sourceSheet.Range("A2:D" & lastSourceRow), 4, False)
            On Error GoTo 0
        End If
    Next targetID
End Sub

运行代码就能一键完成所有数据同步。

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