关于数据修改更新问题

村干部2011

两个表格中的数据更新求助：
两表相同序号的，表1对应序号数据要替换表2里的数据
表2没有的序号，将表1对应的序号数据全部复制到表2
请各位高手帮帮忙，谢谢！

liangmutou01

插入一个模块，将下述代码复制进去。希望能帮到你。
Dim ar(), br()
Sub bj()
  Application.ScreenUpdating = False
  Dim ah As Long, bh As Long
  With Sheets("Sheet1")
    ar = .Range("a3:d" & .[a65536].End(3).Row).Value
  End With
  With Sheets("Sheet2")
    br = .Range("c5:g" & 4 + UBound(ar)).Value
  End With
  For ah = 1 To UBound(ar)
    For bh = 1 To UBound(br)
      If ar(ah, 1) = br(bh, 1) Then
        Call x(ah, bh)
        GoTo aaaa
      End If
    Next bh
    Call z(ah)
aaaa:  Next ah
  Sheets("Sheet2").Range("c5").Resize(UBound(br), UBound(br, 2)) = br
  Application.ScreenUpdating = True
End Sub
Sub x(ah As Long, bh As Long)
  br(bh, 1) = ar(ah, 1)
  br(bh, 2) = ar(ah, 2)
  br(bh, 3) = ar(ah, 3)
  br(bh, 5) = ar(ah, 4)
End Sub
Sub z(ah As Long)
  For h = 1 To UBound(br)
    If br(h, 1) = "" Then Exit For
  Next h
  br(h, 1) = ar(ah, 1)
  br(h, 2) = ar(ah, 2)
  br(h, 3) = ar(ah, 3)
  br(h, 5) = ar(ah, 4)
End Sub