根据条件，将文字内容合并，谢谢！

sulli112

这个文档里面有一个代码，就是同时满足ABC三列条件时将数据合并在汇总表里面对应位置，但是现在我还想要当同时满足ABC三列时，将E列的文字加逗号连接在汇总表的E列中，我有在论坛中早到我类似的代码，但是我修改后还是不行，那段代码是“”根据B列的内容，将C列的内容连接在D列内”代码如下，但是跟我要求有所出入，麻烦大神帮忙修改一下，谢谢，总体来说就是（当满足ABC三列条件）汇总金额，合并E列文字到汇总表）最好备注好后期如果要新增更多的满足条件时，要怎么修改

1. Sub shishi()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Range("d:d").ClearContents
   
4.     a = Range("b2", Cells(65536, 3).End(3))
   
5.     For i = 1 To UBound(a)
   
6.         If Not d.exists(a(i, 1)) Then d(a(i, 1)) = a(i, 2) Else d(a(i, 1)) = d(a(i, 1)) & "，" & a(i, 2)
   
7.     Next
   
8.     For i = 0 To d.Count - 1
   
9.         Set Rng = Range("b:b").Find(d.keys()(i))
   
10.         If Not Rng Is Nothing Then Rng(1, 3) = d.items()(i)
    
11.     Next
    
12. End Sub

复制代码

sulli112

顶一顶，谢谢

sulli112

1. Sub zz()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     ar = Range("A2").CurrentRegion
   
5.     For i = 1 To UBound(ar)
   
6.         s = ar(i, 1) & "," & ar(i, 2) & "," & ar(i, 3)
   
7.         d(s) = d(s) & "," & ar(i, 4)
   
8.     Next
   
9.     For Each k In d.keys
   
10.         Cells(2 + n, 6).Resize(1, 3) = Split(k, ",")
    
11.         Cells(2 + n, 9) = Mid(d(k), 2): n = n + 1
    
12.     Next
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    
15. 
    

复制代码

有关文字合并的代码我已经修改出来了，但是不知道怎么修改成按照求和表将答案填在汇总表对应列，求和跟文本合并最好在一段代码就可以实现，谢谢

A1233515

附件供参考

sulli112

A1233515 发表于 2021-1-17 17:19
附件供参考

谢谢 非常实用