小白求助批量数据比对合并

angus_xlc

公司需要对三个系统（TBK、Sale、Sup）的数据进行比对，每个系统大概有30万条记录，须要根据每个表的ID进行比对，将每张表的ID对应NB1&2分别
汇总到total表格里，求大神帮忙用VB处理。万分感谢~~附件仅列举了165条记录

duquancai

不用vba行不行？用python语言写可以不？

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = Sheets("BaseB").[a2].Resize(400000, 9)
    For j = 1 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            d(arr(j, 1)) = j
        Else
            r = j - 1
            Exit For
        End If
    Next j
    For i = 2 To 4
        brr = Sheets(i).UsedRange
        For j = 2 To UBound(brr)
            If Len(brr(j, 1)) > 0 Then
                If Not d.exists(brr(j, 1)) Then
                    r = r + 1
                    arr(r, 1) = brr(j, 1)
                    d(brr(j, 1)) = r
                End If
                arr(d(brr(j, 1)), i * 2) = brr(j, 2)
                arr(d(brr(j, 1)), i * 2 + 1) = brr(j, 3)
            End If
        Next j
    Next i
    Sheets("Total").UsedRange.Offset(2).ClearContents
    Sheets("Total").[a3].Resize(r, UBound(arr, 2)) = arr
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。

lwwy1981

你说汇总三张表的,为什么结果表里是四种

smhf_6

duquancai 发表于 2020-7-4 22:55
不用vba行不行？用python语言写可以不？

python一定能写，但最后的运行结果，总是要有一个容器吧？常用的，也就是表格，文本，超大的，用数据库，若是EXCEL表格，还不如直接用vba, 况且也只有30万条数据，不算大。

angus_xlc

lwwy1981 发表于 2020-7-4 23:40
你说汇总三张表的,为什么结果表里是四种

有一张是标准的原始表，可能没有说清楚，应该四张表汇总在一起，便于跟第一个表比对，看看哪些系统数据有出入

angus_xlc

liulang0808 发表于 2020-7-4 23:06
附件内容供参考。。。。。

谢谢大神~~

如云家家

liulang0808 发表于 2020-7-4 23:06
附件内容供参考。。。。。

合并的表加到8个，请问修改哪里？  For i = 2 To  4  brr = Sheets(i).UsedRange，这里改了还是不行，请教如何修改，先谢谢。

如云家家

liulang0808 发表于 2020-7-4 23:06
附件内容供参考。。。。。

再加多个工作表修改好了，还想求助一下，如果ID在B列，A列同时也要出现在合并好的表里，这个怎么做？先谢谢老师