多个表信息按某列信息合并到一张工作表中VBA

可爱小喵喵

VBA将A,B,C表中的数据A,数据B,数据C,数据D列,汇聚到结果的数据列，及其后面对应的地市和是否添加

mmwwdd

mmwwdd

就是个合并的问题

可爱小喵喵

mmwwdd 发表于 2023-2-18 06:37
就是个合并的问题

这个表里不光表A,B,C，还有别的表，还有一个问题就是表A,B,C在工作簿中增加表和数据A,数据B,数据C,数据D列，在表中的位置我要增加和修改的话修改哪个值呢，还有最后的结果去除重复项，麻烦指导一下，谢谢

gwjkkkkk

可爱小喵喵 发表于 2023-2-20 16:43
这个表里不光表A,B,C，还有别的表，还有一个问题就是表A,B,C在工作簿中增加表和数据A,数据B,数据C,数据D ...

Sub TEST()
    Dim ar, br, cr, i&, j&, r&, k&
    Dim wks As Worksheet, dic As Object, vKey, strJoin$
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    With [A1].CurrentRegion
        .Offset(1).Clear
        ar = .Resize(10 ^ 3)
        r = 1
    End With
   
    For Each wks In Sheets
        If wks.Name <> "结果" Then
            With wks
                br = .[A1].CurrentRegion
                For j = 1 To UBound(br, 2)
                    If InStr(br(1, j), "数据") Then
                        cr = Array(j, UBound(br, 2) - 1, UBound(br, 2))
                        For i = 2 To UBound(br)
                            If br(i, cr(0)) <> "" Then
                               strJoin = ""
                               For k = 0 To UBound(cr)
                                   strJoin = strJoin & "," & br(i, cr(k))
                               Next k
                               If Not dic.exists(strJoin) Then
                                   r = r + 1
                                   For k = 0 To UBound(cr)
                                       ar(r, k + 1) = br(i, cr(k))
                                   Next k
                                   dic(strJoin) = ""
                               End If
                            End If
                        Next i
                    End If
                Next j
            End With
        End If
    Next
   
    [A1].Resize(r, 3) = ar
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

可爱小喵喵 发表于 2023-2-20 16:43
这个表里不光表A,B,C，还有别的表，还有一个问题就是表A,B,C在工作簿中增加表和数据A,数据B,数据C,数据D ...

请楼主参考附件。。。

可爱小喵喵

gwjkkkkk 发表于 2023-2-20 21:01
请楼主参考附件。。。

还有一个问题如果数据A,数据B,数据C,数据D列和地市添加后面还有其它的东西，会出现错误，这个如何调试呢

gwjkkkkk

可爱小喵喵 发表于 2023-2-22 01:44
还有一个问题如果数据A,数据B,数据C,数据D列和地市添加后面还有其它的东西，会出现错误，这个如何调试呢

这个要看表格的具体情况来进行分析，比较难定位，建议规范表格。。。

可爱小喵喵

gwjkkkkk 发表于 2023-2-22 07:52
这个要看表格的具体情况来进行分析，比较难定位，建议规范表格。。。

那么VBA代码中就以数据，地市，是否添加，作为判断这些是需要的，现在只是数据嘛，这样就很明确了，还有就是数据量大会报错

gwjkkkkk

可爱小喵喵 发表于 2023-2-22 12:12
那么VBA代码中就以数据，地市，是否添加，作为判断这些是需要的，现在只是数据嘛，这样就很明确了，还有 ...

上传附件看下。。。