请教匹配出“一对多”的“多”后，在单元格以逗号分隔这些“多”

cjc209

=TEXTJOIN(",",,IF($A$2:$A$10=D2,$B$2:$B$10,"")) 数组公式

sandays

mayfisher 发表于 2019-12-18 19:18
首先感谢谢大侠你：）但03是没有iferror的:<
不过我在另一网址看过别的写法实现我要求的功能，但对方这 ...

看4楼。把iferror换成if(iserror())

chenyun1234

能借助高铁到北京赶考，非要骑马去赶考！

如果是家庭用电脑，那还能说你省

如果是公司电脑，那基本上是可以换工作了，

连电脑都还是马马虎虎的凑合用，公司也没多大前途

mayfisher

mmlzh 发表于 2019-12-18 21:48
辅助列C2=IF(COUNTIF(A$1:A1,A2),LOOKUP(1,0/(A2=A$1:A1),C$1:C1)&",","")&B2

E2=LOOKUP(1,0/(A$2:A$10= ...

但是请问例如说E2=LOOKUP(1,0/(A$2:A$10=D2),C$2:C3)这其中，1是什么？逻辑值？
然后0/即零除以，这个概念怎么理解？0除以任何数不都得0吗？

micch

mayfisher 发表于 2020-1-5 11:42
但是请问例如说E2=LOOKUP(1,0/(A$2:A$10=D2),C$2:C3)这其中，1是什么？逻辑值？
然后0/即零除以，这个概 ...

0除以0得到的是错误值，不是0.lookup的特点是可以在有错误值的数组中找到需要的值。1比0大，所以找到的是最后一个0

iwangyi

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Row = 1 Then Exit Sub
Set CN = CreateObject("ADODB.CONNECTION")
Set D = CreateObject("SCRIPTING.DICTIONARY")
CN.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
Sql = "select 姓名 FROM [order (2)$A1:B] WHERE 编号= " & Target & ""
BRR = CN.Execute(Sql).GETROWS
For I = 0 To UBound(BRR, 2)
D(BRR(0, I)) = ""
Next
Target.Offset(, 1) = Join(D.KEYS, ",")
End Sub