如何实现多条件合并，目前只能单条件合并

jstvic

重复项如何实现多条件合并，哪位大神帮忙看看

jstvic

目前可实现单条件合并 还差一个条件

wanao2008

合并A & B 的字符串，例如：
dic(arr(i, 1) & arr(i, 2) )   ,
或用一个变量接合并后的字符串：
khName =  arr(i, 1) & arr(i, 2)
然后如下使用：
If Not d.exists(khName) Then

杨建营

修改几个地方就可以了，请参考。

杨建营

这样也可以。

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, br, i&, r&, dic As Object, vKey
   
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = [A1].CurrentRegion
    For i = 2 To UBound(ar)
        vKey = ar(i, 1) & "|" & ar(i, 2)
        dic(vKey) = dic(vKey) + ar(i, 3)
    Next i
   
    For Each vKey In dic.keys
        r = r + 1
        br = Split(vKey, "|")
        For i = 0 To UBound(br)
            ar(r, i + 1) = br(i)
        Next i
        ar(r, 3) = dic(vKey)
    Next
   
    [A11].Resize(r, UBound(ar, 2)) = ar
    Set dic = Nothing
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

mmwwdd

jstvic

感谢 各位大神