匹配所有对应的数据到同一个单元格里

天涯论剑

根据E列在A列里查找一样的，把对应的B列所有数据放到一个单元格里。前提是：OFFICE 2016版本支持的函数，F列是结果示例

quqiyuan

1. =CONCAT(IF($A$2:$A$2785=E2,$B$2:$B$2785&",",""))

复制代码

hugeinfo

=TEXTJOIN(",",,IF($A$2:$A$2785=E2,$B$2:$B$2785,""))

swl4561255

1. Sub test()
   
2. arr = Range("A1").CurrentRegion
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = 2 To Range("A1").CurrentRegion.Rows.Count
   
5.   d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
   
6. Next
   
7. k = d.keys
   
8. t = d.items
   
9. For j = 0 To d.Count - 1
   
10. t(j) = Mid(t(j), 2)
    
11. Next
    
12. [E2].Resize(d.Count, 1) = Application.Transpose(k)
    
13. [F2].Resize(d.Count, 1) = Application.Transpose(t)
    
14. Set d = Nothing
    
15. End Sub
    

复制代码

jivy1212

1. =MID(SUBSTITUTE(PHONETIC(OFFSET($A$1,MATCH(E2,A:A,)-1,,COUNTIF(A:A,E2),2)),E2,","),2,66)

复制代码

老版合并有点坑，这公式需要把A列/E列的数值改成文本型数字方可用

沈默00

沈默00

发现函数有点卡，再增加一个方法，秒生成，试一下

无关岁月

2016没有textjoin函数，所以VBA参与一下

副本新建 Microsoft Excel 工作表.7z (45.6 KB, 下载次数: 0)

2024-3-29 09:24 上传

点击文件名下载附件

我的城市你来过

=LEFT(CONCAT(FILTER(B:B&",",A:A=E2)),LEN(CONCAT(FILTER(B:B&",",A:A=E2)))-1)

cyh3230

强求2016的话, 不如直接走 PP
用 concatenatex 函数, 做透视表来弄