一、Sheet2 B:D 动态匹配行号粘贴到 Sheet1 C:E #

根据你的需求，核心是基于行号一一对应，把Sheet2中B:D列有数据的行，同步到Sheet1对应行的C:E列（完全替代原有的基于"LAW"文本的静态复制逻辑）。这里的关键是先定位Sheet2中存在数据的行，再匹配到Sheet1的对应行完成粘贴。

实现代码 #

Sub SyncSheet2ToSheet1()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRowWs2 As Long, i As Long
    
    ' 绑定目标工作表对象
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取Sheet2中B列最后一行有数据的行号（以此为循环边界）
    lastRowWs2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row
    
    ' 遍历Sheet2的每一行
    For i = 1 To lastRowWs2
        ' 跳过Sheet2中B:D全空的行
        If Not IsEmpty(ws2.Range("B" & i)) Or Not IsEmpty(ws2.Range("C" & i)) Or Not IsEmpty(ws2.Range("D" & i)) Then
            ' 可选：仅当Sheet1对应行C:E为空时才粘贴，避免覆盖已有数据
            If IsEmpty(ws1.Range("C" & i)) And IsEmpty(ws1.Range("D" & i)) And IsEmpty(ws1.Range("E" & i)) Then
                ' 直接复制粘贴，高效完成同步
                ws2.Range("B" & i & ":D" & i).Copy Destination:=ws1.Range("C" & i)
            End If
        End If
    Next i
    
    ' 清除剪贴板残留，避免后续操作干扰
    Application.CutCopyMode = False
    MsgBox "Sheet2到Sheet1的数据同步完成！", vbInformation
End Sub

代码关键点说明 #

• 行号核心匹配：通过循环变量i直接关联Sheet2和Sheet1的行号，完全替代原有的"LAW"文本筛选逻辑，实现动态行对应。
• 空行过滤：先判断Sheet2当前行是否有数据，避免无效循环；可选的Sheet1空白行判断，能防止误覆盖已有内容（不需要的话可以直接删掉这个判断分支）。
• 高效操作：使用Copy Destination一步完成复制粘贴，比传统的复制-粘贴步骤更简洁高效。

二、基于行号将Sheet1 B:D复制到Sheet2 C:E #

这个功能是反向同步，核心是按行号将Sheet1的B:D列数据复制到Sheet2对应行的C:E列。下面提供两种实用方案：

方案1：同步Sheet1所有有数据的行 #

Sub SyncSheet1ToSheet2()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRowWs1 As Long, i As Long
    
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 获取Sheet1中B列最后一行有数据的行号
    lastRowWs1 = ws1.Cells(ws1.Rows.Count, "B").End(xlUp).Row
    
    For i = 1 To lastRowWs1
        ' 跳过Sheet1中B:D全空的行
        If Not IsEmpty(ws1.Range("B" & i)) Or Not IsEmpty(ws1.Range("C" & i)) Or Not IsEmpty(ws1.Range("D" & i)) Then
            ' 复制到Sheet2对应行的C:E列
            ws1.Range("B" & i & ":D" & i).Copy Destination:=ws2.Range("C" & i)
        End If
    Next i
    
    Application.CutCopyMode = False
    MsgBox "Sheet1到Sheet2的数据同步完成！", vbInformation
End Sub

方案2：仅同步指定行号（自定义灵活同步） #

如果只需要同步特定行，比如手动指定的行号列表，可以用这个版本：

Sub SyncSpecificRowsSheet1ToSheet2()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim targetRows As Variant, rowNum As Variant
    
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 自定义需要同步的行号（可以改成从单元格读取，比如targetRows = ws1.Range("A1:A5").Value）
    targetRows = Array(3, 5, 7, 10)
    
    For Each rowNum In targetRows
        ' 校验行号有效性，避免越界错误
        If rowNum <= ws1.Rows.Count And rowNum >= 1 Then
            ws1.Range("B" & rowNum & ":D" & rowNum).Copy Destination:=ws2.Range("C" & rowNum)
        End If
    Next rowNum
    
    Application.CutCopyMode = False
    MsgBox "指定行号的数据同步完成！", vbInformation
End Sub

代码关键点说明 #

• 反向同步逻辑：和第一个过程逻辑一致，只是交换了源/目标工作表，调整了复制的列范围，保持行号对应核心逻辑不变。
• 灵活性扩展：方案2支持自定义行号列表，你也可以修改代码让行号从工作表的某个单元格区域读取，实现更动态的行选择。

使用注意事项 #

1. 运行代码前，请确保Excel的宏安全性设置允许启用宏（文件→选项→信任中心→信任中心设置→宏设置）。
2. 如果你的行号对应关系不是“相同行号”（比如Sheet2行5对应Sheet1行10），可以添加行号映射数组（比如rowMap = Array(5→10, 3→7)），循环时通过映射数组找到目标行号即可。
3. 测试代码前建议备份工作表数据，避免意外覆盖。

内容的提问来源于stack exchange，提问作者Martin Hewitt Tayler