新老sheet区域比较，将新增部分粘贴到老sheet上

creeper123

如附件所示  有这样2个sheet

希望将新sheet中产生的数据复制到老sheet中。新sheet.png图中红色框为待复制的内容。
两者共同有7组数据，有部分共通的数据基础。
复制完成后，仅有新sheet【新产生的部分】被复制到老sheet中，换句话说老sheet左侧字母部分不要首影响。

请教各位大佬，VBA(用的WPS)该如何写，感谢

creeper123

可支付酬劳

taller

哪些部分需要复制？哪些部分不能改变？复制到什么位置？楼主需要说明清楚

creeper123

taller 发表于 2024-11-2 23:19
哪些部分需要复制？哪些部分不能改变？复制到什么位置？楼主需要说明清楚

您好 ，说明图示已更新，红色框中为待复制内容，复制到老sheet中相同的相对位置处。
谢谢您的回复

creeper123

别沉啊  希望被大佬们看到

大寒123

Sub Compare()
Dim rg1 As Range, rg2 As Range, s As String, pro As String, str As String, i As Integer
On Error GoTo err
Set rg1 = Application.InputBox("选择对比区域1", "选择老表数据区", , , , , , 8)
If rg1.Cells.Count Then
    s = "已选择区域：" & rg1.Address(1, 1, xlR1C1) & Chr(10) & "选择对比区域2"
    Set rg2 = Application.InputBox(s, "选择新表数据区", , , , , , 8)
    If rg2.Cells.Count Then
        If (rg1.Rows.Count = rg2.Rows.Count) And (rg1.Columns.Count = rg2.Columns.Count) Then
            For i = 1 To (rg1.Rows.Count * rg1.Columns.Count)
                If rg1.Cells(i) <> rg2.Cells(i) Then
                    rg1.Cells(i) = rg2.Cells(i)
                End If
            Next i
            str = MsgBox("已复制新增数据", vbOKOnly, "处理完成")
        Else
            pro = "错误提示：" & Chr(10) & "已选择区域1：" & rg1.Address(1, 1, xlR1C1) & Chr(10) & "已选择区域2：" & rg2.Address(1, 1, xlR1C1)
            str = MsgBox(pro, vbExclamation, "选择的两个区域大小不一致，无法处理")
        End If
    End If
Else
err:
str = MsgBox("未执行")
End If
End Sub