如何高效跨Sheet按Race值匹配更新指定列数据（海量行场景）

针对数千行数据的场景，以下是三种高效方案，按推荐优先级排序：

1. Power Query（无代码、高效稳定，推荐） #

Power Query是Excel内置的ETL工具，处理大数量数据时性能远优于公式，且操作可视化：

• 导入数据：分别选中Sheet1和Sheet2的数据区域，点击「数据」选项卡 →「自表格/区域」，勾选「我的表格有标题」，将两张表导入Power Query编辑器。
• 精简源数据：在Sheet2的查询中，右键删除不需要更新的列，只保留Race列和要同步的目标列（减少数据量提升效率）。
• 合并查询：切换到Sheet1的查询，点击「合并查询」→ 选择Sheet2的查询，匹配列选择Race，连接类型选「左外部」（确保Sheet1的所有行都被保留）。
• 展开更新列：点击合并列右侧的展开箭头，只勾选需要更新的列，取消「使用原始列名作为前缀」。
• 替换原有数据：点击「关闭并上载」→ 选择「替换当前工作表」，完成首次更新。后续只需右键查询选择「刷新」，就能一键同步最新数据。

2. VBA（自动化、极致效率） #

利用字典（Dictionary）的O(1)查找特性，避免嵌套循环的低效问题，数千行数据几秒就能完成：

Sub UpdateSheet1ByRace()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim raceDict As Object
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, currentRace As String
    Dim updateValues As Variant
    
    ' 定义工作表对象
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    Set raceDict = CreateObject("Scripting.Dictionary")
    
    ' 加载Sheet2的Race与对应更新值到字典
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row ' 假设Race在Sheet2的A列
    For i = 2 To lastRow2 ' 跳过表头行
        currentRace = Trim(ws2.Cells(i, "A").Value)
        If Not raceDict.Exists(currentRace) Then
            ' 假设要同步Sheet2的B、C列数据，存入数组
            updateValues = Array(ws2.Cells(i, "B").Value, ws2.Cells(i, "C").Value)
            raceDict.Add currentRace, updateValues
        End If
    Next i
    
    ' 批量更新Sheet1
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row ' 假设Race在Sheet1的A列
    Application.ScreenUpdating = False ' 关闭屏幕刷新提速
    For i = 2 To lastRow1
        currentRace = Trim(ws1.Cells(i, "A").Value)
        If raceDict.Exists(currentRace) Then
            ' 假设更新到Sheet1的D、E列
            ws1.Cells(i, "D").Value = raceDict(currentRace)(0)
            ws1.Cells(i, "E").Value = raceDict(currentRace)(1)
        End If
    Next i
    Application.ScreenUpdating = True
    
    MsgBox "数据更新完成！"
End Sub

• 使用前注意：根据实际列位置修改代码中的列索引（A=1、B=2等），运行前启用宏，大数量下关闭屏幕刷新能大幅减少耗时。

3. XLOOKUP（临时快速操作，适合小批量） #

如果只是临时一次性更新，可直接用XLOOKUP公式，但数千行数据下内存占用较高，效率不如前两种：
在Sheet1需要更新的单元格（比如D2）输入：

=XLOOKUP(A2, Sheet2!A:A, Sheet2!B:B, "")

下拉填充即可。若要同步多列，可结合INDEX或直接嵌套XLOOKUP，但大数量下会明显卡顿。

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