excel多个工作表中的指定列快速合并到新的工作表

excel海

Sub hz()
    Dim sht As Worksheet
    Dim arr, i, Keys, Its, It, j
    Dim dic
    Set dic = CreateObject("scripting.dictionary")
    For Each sht In Sheets
        If sht.Name <> "汇总表" Then
            arr = sht.UsedRange
            For i = 2 To UBound(arr)
                dic(arr(i, 1)) = arr(i, 6) & "," & arr(i, 8) & "," & arr(i, 9)
            Next
        End If
    Next
    Keys = dic.Keys
    Its = dic.items
    ReDim brr(0 To dic.Count - 1, 1 To 4)
    For i = 0 To dic.Count - 1
        brr(i, 1) = Keys(i)
        It = Split(Its(i), ",")
        For j = 0 To UBound(It)
            brr(i, j + 2) = It(j)
        Next
    Next
    Sheets("汇总表").Cells(2, 1).Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

jjmysjg

excel海 发表于 2020-1-18 16:03
Sub hz()
    Dim sht As Worksheet
    Dim arr, i, Keys, Its, It, j

数据源，各表重复的，只能合并进去1个

excel海

jjmysjg 发表于 2020-1-18 22:39
数据源，各表重复的，只能合并进去1个

字典去重了

13583313392

这个在数据量不大的情况下可以用，记得用之前把汇总表删了

jjmysjg

excel海 发表于 2020-1-18 22:54
字典去重了

如何将重复的去掉后，数值加和

excel海

我看了,你的6个表加起来就这里数据,全部都应该在的,你运单号有重复?
要求和字典也是可以求和的

lrh788

学习占位！

紫寒100

excel海 发表于 2020-1-19 08:41
我看了,你的6个表加起来就这里数据,全部都应该在的,你运单号有重复?
要求和字典也是可以求和的

去重求和如何写代码？请指教一下啊。谢谢

紫寒100

opiona 发表于 2018-12-3 20:11
http://club.excelhome.net/thread-1409141-1-1.html

老师，帮我看看这个怎么写代码呢？谢谢啦
跨表按列字段提取数据 [url]http://club.excelhome.net/thread-1581674-1-1.html (出处: ExcelHome技术论坛)[/url]