Excel多工作表多列匹配批量更新数据的技术问询

我来帮你搞定这个批量更新多工作表的问题！这里有两个实用方案，分别是高效的VBA批量处理和适配多表的公式思路，你可以根据需求选择：

方案一：VBA批量自动处理（推荐） #

你的原VBA代码只能处理单表，而且嵌套循环效率较低。下面这个版本会先把DataEntry的数据存入字典（用Roll No+Name作为唯一匹配键），再自动遍历所有目标工作表完成批量填充，效率和适配性都更好：

Sub BatchUpdateMarks()
    Dim wsData As Worksheet
    Dim wsTarget As Worksheet
    Dim dataDict As Object
    Dim lastRowData As Long, lastRowTarget As Long
    Dim i As Long, j As Long
    Dim matchKey As String
    
    ' 指定数据源工作表
    Set wsData = ThisWorkbook.Worksheets("DataEntry")
    ' 创建字典对象，用于快速匹配
    Set dataDict = CreateObject("Scripting.Dictionary")
    
    ' 获取DataEntry表的最后一行数据（避免遍历整列）
    lastRowData = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
    
    ' 把DataEntry的匹配键和对应Marks存入字典
    For i = 2 To lastRowData ' 假设第1行是表头，若不是请改为1
        ' 用|分隔学号和姓名，避免出现"123张三"和"123张"&"三"的误匹配
        matchKey = Trim(wsData.Cells(i, "A").Value) & "|" & Trim(wsData.Cells(i, "B").Value)
        ' 若存在重复的学号+姓名，这里会保留最后一条数据的Marks，可按需调整
        If Not dataDict.Exists(matchKey) Then
            dataDict(matchKey) = wsData.Cells(i, "C").Value
        End If
    Next i
    
    ' 遍历所有工作表，跳过DataEntry，处理目标表
    For Each wsTarget In ThisWorkbook.Worksheets
        If wsTarget.Name <> "DataEntry" Then
            lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
            
            ' 填充当前目标表的Marks列
            For j = 2 To lastRowTarget ' 同样假设第1行是表头
                matchKey = Trim(wsTarget.Cells(j, "A").Value) & "|" & Trim(wsTarget.Cells(j, "B").Value)
                If dataDict.Exists(matchKey) Then
                    wsTarget.Cells(j, "C").Value = dataDict(matchKey)
                Else
                    ' 无匹配项时设为空，也可改为"未找到"等提示
                    wsTarget.Cells(j, "C").Value = ""
                End If
            Next j
        End If
    Next wsTarget
    
    ' 释放资源
    Set dataDict = Nothing
    Set wsData = Nothing
    MsgBox "所有工作表的Marks已批量更新完成！"
End Sub

VBA使用说明： #

1. 按Alt+F11打开VBA编辑器，插入一个新模块，粘贴上述代码。
2. 确保你的数据源表名为DataEntry，如果不是请修改代码中对应的工作表名称。
3. 若表头不在第1行，调整代码中i=2和j=2的起始值。
4. 保存文件为.xlsm格式（启用宏的工作簿），运行宏即可完成批量更新。

方案二：Excel公式适配多表 #

如果你不想用VBA，可以用XLOOKUP（适用于Excel 365/2021及以后版本）实现双列匹配，在目标工作表的C2单元格输入以下公式，然后下拉填充整列：

=XLOOKUP(TRIM(A2)&TRIM(B2), TRIM(DataEntry!A:A)&TRIM(DataEntry!B:B), DataEntry!C:C, "")

公式说明： #

• TRIM函数用于清理单元格内的多余空格，避免因空格导致匹配失败。
• 若使用旧版Excel，可改用数组公式（按Ctrl+Shift+Enter确认输入）：

  =INDEX(DataEntry!C:C, MATCH(TRIM(A2)&TRIM(B2), TRIM(DataEntry!A:A)&TRIM(DataEntry!B:B), 0))
  

批量设置公式技巧： #

如果目标工作表很多，可以选中所有目标表（按住Ctrl点击工作表标签），在其中一个表的C2输入公式，下拉填充后，所有选中的表都会同步应用这个公式。

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