相同值对方的所有文本合并在对应的单元格

zgf0811 · 发表于 2014-8-15 08:58

本帖最后由 zgf0811 于 2014-8-15 09:15 编辑

求大神帮助，如何求相同值对应的所有文本都合并在对应的单元格，具体见表格，下面先截图一部分：

代码	地区	左边是举例的例子，下面是要求项
054R10H079071	兰州	代码	地区
054B10H035001	武汉	054R10H079071	兰州/贵阳/昆明/广州/南昌/温州/合肥/郑州/重庆/沈阳/株洲/乌市/济南/西安/兰州
054B20H035001	武汉	054B10H035001	武汉
054M10A835151	西安	054B20H035001
054M10A835151	徐州	054M10A835151
054M10A835152	成都	054M10A835152
054M10A835152	徐州	054M10A835181
054M10A835181	常熟	054M10A836122
054M10A836122	西安	054M10A836133
054M10A836133	常熟	054M10A836153
054M10A836153	徐州	054M10A836161
054M10A836161	常熟	054M10A877825
054M10A877825	成都	054M20A835151
054M10A877825	西安	054M20A835152
054M20A835151	徐州	054M20A836122
054M20A835151	西安	054M20A836153
054M20A835152	成都	054M20A877825
054M20A835152	徐州	054R10H035001
054M20A836122	西安	054R10H035002
054M20A836153	徐州	054R10H035022
054M20A877825	成都	054R10H035033
054R10H035001	合肥	054R10H035061
054R10H035001	成都	054R10H035062
054R10H035001	徐州	054R10H035131
054R10H035001	常熟	054R10H036021
054R10H035001	温州	054R10H036022
054R10H035001	武汉	054R10H036025
054R10H035001	广州	054R10H036051
054R10H035002	武汉	054R10H036171
054R10H035002	沈阳	054R10H037011
054R10H035002	合肥	054R10H037012
054R10H035002	常熟	054R10H037051

mps777 · 发表于 2014-8-15 09:03

发到VBA区，或者利用自定义函数就可以了解决。
下次提问前，最好把附件附上……

新手上坛，请先阅读：
[新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐：http://club.excelhome.net/thread-184567-1-1.html
Excel Home论坛学习及使用完全攻略(新人必读)：http://club.excelhome.net/thread-449518-1-1.html
关于实施普通会员可参与优秀帖子评分的说明：http://club.excelhome.net/thread-682160-1-1.html

袁勇 · 发表于 2014-8-15 09:06

搜索一下"contxt“，有很多相似的实例。（contxt：VBA编写的自定义函数）

魂断蓝桥 · 发表于 2014-8-15 09:39

代码

Sub a()
Dim arr, d, i As Integer
arr = Sheet1.[a1].CurrentRegion
Set d = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(arr)
If d.exists(arr(i, 1)) Then
d(arr(i, 1)) = d(arr(i, 1)) & "\" & arr(i, 2)
Else
d(arr(i, 1)) = arr(i, 2)
End If
Next
[d:e] = ""
[d2].Resize(d.Count) = Application.Transpose(d.keys)
[e2].Resize(d.Count) = Application.Transpose(d.items)
Set d = Nothing

End Sub

054R10H079071	兰州\贵阳\昆明\广州\南昌\温州\合肥\郑州\重庆\沈阳\株洲\乌市\济南\西安\兰州
054B10H035001	武汉
054B20H035001	武汉
054M10A835151	西安\徐州
054M10A835152	成都\徐州
054M10A835181	常熟
054M10A836122	西安
054M10A836133	常熟
054M10A836153	徐州
054M10A836161	常熟
054M10A877825	成都\西安
054M20A835151	徐州\西安
054M20A835152	成都\徐州
054M20A836122	西安
054M20A836153	徐州
054M20A877825	成都
054R10H035001	合肥\成都\徐州\常熟\温州\武汉\广州
054R10H035002	武汉\沈阳\合肥\常熟\温州\成都\石家庄\广州\济南\西安\北京
054R10H035022	北京
054R10H035033	武汉
054R10H035061	北京
054R10H035062	沈阳
054R10H035131	北京
054R10H036021	合肥\常熟
054R10H036022	郑州\合肥\常熟
054R10H036025	合肥\常熟
054R10H036051	贵阳
054R10H036171	北京
054R10H037011	贵阳\徐州
054R10H037012	沈阳
054R10H037051	贵阳\沈阳\株洲
054R10H037052	沈阳\重庆\成都\兰州
054R10H079092	温州\合肥