Excel VBA 实现工作簿字符串匹配 跨工作表复制行自动更新Sheet1

核心修改思路 #

• 原有代码会遍历工作簿所有工作表做匹配，我们直接固定匹配目标数据源Sheet3，减少冗余运算
• 匹配成功后新增行内容复制逻辑，将Sheet3对应行B列起的有效内容直接赋值到Sheet1匹配行的对应位置
• 可选添加工作表变更事件，实现Sheet3数据更新后Sheet1自动刷新，无需手动执行宏

修改后的完整可运行代码 #

Sub SyncSheet1FromSheet3()
    Application.ScreenUpdating = False
    ' 声明变量
    Dim matchRow As Variant, iRow As Long, sheet1LastRow As Long, sheet3LastCol As Long
    Dim ws1 As Worksheet, ws3 As Worksheet
    ' 固定指定两个工作表，避免受当前激活工作表影响
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws3 = ThisWorkbook.Worksheets("Sheet3")
    ' 获取Sheet1 A列最后一行有内容的行号
    sheet1LastRow = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    ' 遍历Sheet1 A列所有行
    For iRow = 1 To sheet1LastRow
        If Not IsEmpty(ws1.Cells(iRow, 1)) Then
            ' 直接在Sheet3 A列匹配当前值
            matchRow = Application.Match(ws1.Cells(iRow, 1).Value, ws3.Columns(1), 0)
            If Not IsError(matchRow) Then
                ' 匹配成功：保留原有加粗功能
                ws1.Cells(iRow, 1).Font.Bold = True
                ' 获取Sheet3匹配行最后一列有内容的列号
                sheet3LastCol = ws3.Cells(matchRow, ws3.Columns.Count).End(xlToLeft).Column
                If sheet3LastCol >= 2 Then
                    ' 将Sheet3 B列起的内容批量赋值到Sheet1对应位置
                    ws1.Range(ws1.Cells(iRow, 2), ws1.Cells(iRow, sheet3LastCol)).Value = _
                    ws3.Range(ws3.Cells(matchRow, 2), ws3.Cells(matchRow, sheet3LastCol)).Value
                End If
            Else
                ' 匹配失败：取消加粗，不需要清空旧内容可删除下一行
                ws1.Cells(iRow, 1).Font.Bold = False
                ws1.Range(ws1.Cells(iRow, 2), ws1.Cells(iRow, ws1.Columns.Count)).ClearContents
            End If
        End If
    Next iRow
    Application.ScreenUpdating = True
End Sub

自动更新设置方法 #

如果需要Sheet3数据修改后Sheet1自动同步，无需手动运行宏，按以下步骤操作：

1. 打开VBA编辑器（快捷键Alt+F11）
2. 在左侧工程窗口双击Sheet3对象
3. 在右侧代码窗口粘贴以下事件代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' Sheet3内容发生变更时自动触发同步
    Call SyncSheet1FromSheet3
End Sub

4. 保存文件为启用宏的工作簿格式（.xlsm）即可

注意事项 #

• 不需要匹配失败清空Sheet1旧内容的话，删除对应ClearContents行代码即可
• 首次使用建议先备份原有数据再测试代码，避免数据误操作

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