根据一个字段合并工作簿内的多个表

TAETAE

图片为工作簿内的三个表格，根据编号字段合并三个表格的数据，需要注意的是，三个表的编号都有不同的部分，请问如何最快进行合并，合并后效果如下

TAETAE

用power query合并之后始终有问题，求大神指点啊！！！

刀羊

TAETAE 发表于 2021-5-1 14:26
用power query合并之后始终有问题，求大神指点啊！！！

看看祝老师的帖子，或者把你的合并PQ传上来看看：

Excel多工作表快速汇总，简单才是硬道理
http://club.excelhome.net/thread-1355796-1-1.html

3190496160

Sub 合并()
Dim d As Object
Dim ar As Variant
Dim br()
Set d = CreateObject("scripting.dictionary")
ReDim br(1 To 10000, 1 To 500)
n = 1: m = 1
For Each sh In Sheets
    If sh.Name <> "合并" Then
        ar = sh.[a1].CurrentRegion
        For i = 2 To UBound(ar)
            If Trim(ar(i, 1)) <> "" Then
                If Not d.exists(ar(i, 1)) Then
                    n = n + 1
                    br(n, 1) = ar(i, 1)
                    d(br(n, 1)) = n
                End If
                For j = 2 To UBound(ar, 2)
                    If Not d.exists(Trim(ar(1, j))) Then
                        m = m + 1
                        br(1, m) = ar(1, j)
                        d(br(1, m)) = m
                        x = d(Trim(ar(i, 1)))
                    End If
                    y = d(Trim(ar(1, j)))
                    x = d(ar(i, 1))
                    If x <> "" And y <> "" Then
                       br(x, y) = ar(i, j)
                    End If
                Next j
            End If
        Next i
    End If
Next sh
With Sheets("合并")
    .[a1].CurrentRegion = Empty
    .[a1].Resize(n, m) = br
End With
MsgBox "完毕！", 64, "3190496160 提醒"
End Sub

3190496160

合并.rar (19.81 KB, 下载次数: 3)

2021-5-2 09:16 上传

点击文件名下载附件