Excel宏开发需求：基于多条件匹配更新另一工作表中的行数据

我完全懂你现在的困扰——找了好久都没搞定这个批量更新的宏，毕竟要在可能很长的Sheet2日志里，用Sheet1每行前6列的信息精准定位，再把对应行的前11列数据替换更新，还要处理匹配不到的情况确实有点棘手。

下面是我专门写的VBA宏代码，完全贴合你的需求，你可以直接用：

Sub UpdateSheetData()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim lastRowSource As Long, lastRowTarget As Long
    Dim i As Long, j As Long, matchFound As Boolean
    Dim matchKeySource As String, matchKeyTarget As String
    Dim unmatchedRows As String
    
    ' 设置源工作表（Sheet1）和目标工作表（Sheet2）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取两个工作表的最后一行行号
    lastRowSource = wsSource.Cells(Rows.Count, 1).End(xlUp).Row
    lastRowTarget = wsTarget.Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 初始化未匹配行记录字符串
    unmatchedRows = ""
    
    ' 遍历Sheet1的每一行（从第2行开始，假设第1行是表头）
    For i = 2 To lastRowSource
        matchFound = False
        ' 构建Sheet1当前行的匹配键（拼接前6列内容）
        matchKeySource = ""
        For j = 1 To 6
            matchKeySource = matchKeySource & "|" & wsSource.Cells(i, j).Value
        Next j
        
        ' 在Sheet2中查找匹配的行
        For j = 2 To lastRowTarget
            ' 构建Sheet2当前行的匹配键
            matchKeyTarget = ""
            For k = 1 To 6
                matchKeyTarget = matchKeyTarget & "|" & wsTarget.Cells(j, k).Value
            Next k
            
            ' 匹配键一致则更新数据
            If matchKeySource = matchKeyTarget Then
                ' 将Sheet1当前行的前11列数据复制到Sheet2对应行
                wsSource.Range(wsSource.Cells(i, 1), wsSource.Cells(i, 11)).Copy _
                    Destination:=wsTarget.Range(wsTarget.Cells(j, 1), wsTarget.Cells(j, 11))
                matchFound = True
                Exit For ' 找到匹配后退出内层循环，处理下一行
            End If
        Next j
        
        ' 如果未找到匹配，记录行号
        If Not matchFound Then
            unmatchedRows = unmatchedRows & "Sheet1第" & i & "行" & vbCrLf
        End If
    Next i
    
    ' 弹出结果提示
    If unmatchedRows = "" Then
        MsgBox "所有数据已成功更新！", vbInformation, "更新完成"
    Else
        MsgBox "数据更新完成，但以下行未在Sheet2中找到匹配项：" & vbCrLf & unmatchedRows, vbExclamation, "更新提示"
    End If
    
    ' 释放对象变量
    Set wsSource = Nothing
    Set wsTarget = Nothing
End Sub

代码说明： #

• 匹配逻辑：通过拼接每行前6列的内容作为唯一匹配键，避免单条件重复导致的错误匹配
• 更新范围：找到匹配行后，直接将Sheet1该行的前11列数据覆盖到Sheet2对应行
• 未匹配提示：会把所有在Sheet2中找不到匹配的Sheet1行号收集起来，最后一次性提示给你
• 表头兼容：默认从第2行开始遍历（假设第1行是表头），如果你的数据没有表头，把循环起始的2改成1就行

使用步骤： #

• 打开你的Excel文件，按下Alt + F11打开VBA编辑器
• 在左侧的“工程资源管理器”里，右键点击你的工作簿，选择“插入”→“模块”
• 把上面的代码粘贴到新建的模块里
• 按下F5运行宏，或者回到Excel界面，通过“开发工具”→“宏”选择UpdateSheetData运行
• 🚨 重要提示：运行前建议先备份你的Excel文件，避免数据意外丢失

备注：内容来源于stack exchange，提问作者Norbit-in-Orbit