求助老师，如何将一张表的数据导入另一张表

woailijiao

求助老师，如何将一张表的数据 导入到另一张总表，如果总表存在相同的编号，则不覆盖总表的数据。

ykcbf1100

这样就行。

菌要橙死

附件仅供参考

woailijiao

ykcbf1100 发表于 2022-12-2 16:10
这样就行。

你好老师，请问brr(1 to 10000, 1 to 2)是啥意思呀？啥作用

woailijiao

ykcbf1100 发表于 2022-12-2 16:10
这样就行。

老师，点两次会报错！如何解决！

gwjkkkkk

Sub TEST6()
    Dim arr, vResult, i&, R&, dic As Object
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
    arr = [A1].CurrentRegion: R = UBound(arr)
    For i = 2 To UBound(arr)
       dic(arr(i, 1)) = ""
    Next i
    vResult = Application.Transpose(arr)
    arr = Sheets(2).[A1].CurrentRegion
    For i = 2 To UBound(arr)
       If Not dic.Exists(arr(i, 1)) Then
           R = R + 1
           ReDim Preserve vResult(1 To UBound(vResult), 1 To R)
           vResult(1, R) = arr(i, 1)
           vResult(2, R) = arr(i, 2)
       End If
    Next i
    Columns(1).NumberFormatLocal = "@"
    [A1].Resize(UBound(vResult, 2), UBound(vResult)) = Application.Transpose(vResult)
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请楼主参考 。。。

woailijiao

gwjkkkkk 发表于 2022-12-2 20:00
请楼主参考 。。。

怎么有个响声

gwjkkkkk

提示音，代表程序执行完成，代替msgbox 提醒。。。