查找一对多的数值

yanbeik · 发表于 2015-7-15 08:57

各位老师问题是这样的，A列中为查找的数据，B列为输出结果，C列为对应的查找数据，D列为对应的输出结果（也就是在B列输出A和和C列相同时所对应的。需要通过函数把结果放在B列，并以逗号隔开。具体案例可以看附件，实际数据很大我希望能找个一个可以解决问题的函数，谢谢啦。这个问题困扰我很久很久了，试过用透视表但是效果不理想，望老师们帮忙。

hope9966 · 发表于 2015-7-15 20:22

并以逗号隔开,放在一个单元格里，

你问问VBA大神，这个应该不成问题的

看见星光 · 发表于 2015-7-15 20:47

本帖最后由看见星光于 2015-7-15 20:51 编辑

Sub yanbeik()
Dim d, arr, brr, i&
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 3)) Then Set d(arr(i, 3)) = CreateObject("scripting.dictionary")
d(arr(i, 3))(arr(i, 4)) = ""
Next
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
If d.exists(arr(i, 1)) Then
arr(i, 2) = Join(d(arr(i, 1)).keys, "," & vbCr)
End If
End If
Next
[a1].CurrentRegion = arr
Set d = Nothing
End Sub

复制代码

看见星光 · 发表于 2015-7-15 20:53

上个帖子里给你的VLOOKUP解法应该是最简单最好理解的。那个公式如果不理解，用代码的话，就更难说了。如果实在无法理解公式，建议你报名EH的函数培训班，打点基础。

22.zip (137.01 KB, 下载次数: 83)

袁勇 · 发表于 2015-7-15 21:10

启用宏。

一对多寻找值.zip (110.04 KB, 下载次数: 69)

yanbeik · 发表于 2015-7-16 09:12

看见星光发表于 2015-7-15 20:53
上个帖子里给你的VLOOKUP解法应该是最简单最好理解的。那个公式如果不理解，用代码的话，就更难说了。如果 ...

好的，多谢你耐心细致的解答，我报个班学习学习。

yanbeik · 发表于 2015-7-16 09:13

袁勇发表于 2015-7-15 21:10
启用宏。

问题已解答，多谢你的帮助，我好好研究研究

CLL1998 · 发表于 2015-7-16 10:21

不用宏不用数据透视，但须先对相关数据排序及加逗号处理，再用公式PHONETIC及公式OFFSET处理。

截图1.jpg

一对多寻找值.rar (282.58 KB, 下载次数: 145)

yanbeik · 发表于 2015-7-16 13:38

CLL1998 发表于 2015-7-16 10:21
不用宏不用数据透视，但须先对相关数据排序及加逗号处理，再用公式PHONETIC及公式OFFSET处理。

根据你的方法我试了一遍，已经成功了，万分感谢，我是新手这个问题困扰我好久了。帖子发出后很多老师帮助我解答，在这里我也谢谢大家。

lusa · 发表于 2018-3-30 13:28

高手，有空过来研究研究

用户名		自动登录	找回密码
密码			免费注册

查找一对多的数值

浏览过的版块