求大神解救下 文本汇总

nongo

如题 求大神解救下 文本汇总  感谢！！！

lsc900707

搞不明白为什么要那么多的合并单元格。

liulang0808

楼主这可以考虑使用字典汇总即可
http://club.excelhome.net/thread-1385473-1-1.html
这个字典的案例帖子可以参考下

nongo

liulang0808 发表于 2018-7-24 16:54
楼主这可以考虑使用字典汇总即可
http://club.excelhome.net/thread-1385473-1-1.html
这个字典的案例帖 ...

文本汇总貌似没有啊

liulang0808

1. Sub °′Å￥1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = Sheets(1).[a3].CurrentRegion
   
5.     For j = 2 To UBound(arr)
   
6.         If arr(j, 14) > 0 Then
   
7.             If d.exists(arr(j, 3)) Then
   
8.                 d(arr(j, 3)) = d(arr(j, 3)) & "," & arr(j, 6) & arr(j, 16)
   
9.             Else
   
10.                 d(arr(j, 3)) = arr(j, 6) & arr(j, 16)
    
11.             End If
    
12.         End If
    
13.     Next j
    
14.     [b6].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
    
15.     [c6].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    
16.     Application.ScreenUpdating = True
    
17. End Sub
    

复制代码

liulang0808

供参考，格式楼主自行调整

nongo

谢谢版主大神！

nongo

liulang0808 发表于 2018-7-24 18:53

大神 能中文解说下吗？有些地方看不懂！有劳！

liulang0808

nongo 发表于 2018-7-25 12:02
大神 能中文解说下吗？有些地方看不懂！有劳！

用日期作为字典的关键字，。进行文本组合而已

nongo

liulang0808 发表于 2018-7-25 13:24
用日期作为字典的关键字，。进行文本组合而已

嗯  已经搞定了 谢谢！