各位大神，求助用函数多对多查找。

jqgz_1999 · 发表于 2024-8-22 22:42

本帖最后由 jqgz_1999 于 2024-8-22 23:40 编辑

H列为手动输入
如H列输入名称B，I列显示左边黄色区域A列名称B对应B列多条序号，继续接着输入其他名称，显示对应序号（H列手动输入名称是无序的）
求I列函数

补充内容 (2024-8-24 23:12):
已解决，谢谢各位大虾！

kuangben8 · 发表于 2024-8-22 22:55

你这个版本，还是选择数据透视表吧

多对多函数查找求助.zip (8.44 KB, 下载次数: 3)

jqgz_1999 · 发表于 2024-8-22 23:31

大虾
H列为手动输入
如H列输入名称B，I列显示左边黄色区域A列名称B对应B列多条序号，继续接着输入其他名称，显示对应序号（H列手动输入名称是无序的）
求I列函数

沈默00 · 发表于 2024-8-23 07:32

按你说的这样，要VBA实现

365函数就filter+reduce可以一次做出结果，，

mjm04 · 发表于 2024-8-23 08:53

沈默00 发表于 2024-8-23 07:32
按你说的这样，要VBA实现

365函数就filter+reduce可以一次做出结果，，

=IFERROR(REDUCE({"名称","序号"},UNIQUE(A2:A42),LAMBDA(a,b,VSTACK(a,HSTACK(b,FILTER(B2:B42,A2:A42=b))))),"")

这样的吗？

沈默00 · 发表于 2024-8-23 08:58

mjm04 发表于 2024-8-23 08:53
=IFERROR(REDUCE({"名称","序号"},UNIQUE(A2:A42),LAMBDA(a,b,VSTACK(a,HSTACK(b,FILTER(B2:B42,A2:A42 ...

嗯，不是LZ所需要的结果，看了上一贴，他的版本也不支持，，，
只能用VBA事件去做了

mjm04 · 发表于 2024-8-23 09:00

沈默00 发表于 2024-8-23 08:58
嗯，不是LZ所需要的结果，看了上一贴，他的版本也不支持，，，
只能用VBA事件去做了

楼主只能想办法升级版本，或是去学VBA啦

hcm19522 · 发表于 2024-8-23 11:45

I2{=INDEX(B:B,SMALL(IF($A$2:$A$42=LOOKUP("z",H$2:H2),ROW($2:$42),99),ROW()-IFERROR(LOOKUP(1,0/(H$2:H2<>""),ROW($1:1)),)))&""

卿远 · 发表于 2024-8-23 13:35

正好在学习VBA，试着做了下，注意：程序区分大小写

把程序指定给按钮1，按图操作就可以了

Sub 多对多函数查找求助()
Dim rw As Integer, m As Integer
Dim rg As Range
Dim arr()
Set rg = [h:h].Find("*", , , , , xlPrevious)
m = Application.WorksheetFunction.CountIf([a:a], rg)
ReDim arr(1 To m)
Dim n As Integer
n = 1
For rw = 2 To Cells(1, 1).End(xlDown).Row
   If Cells(rw, 1) = rg Then
      arr(n) = Cells(rw, 2)
      n = n + 1
   End If
Next
rg.Offset(0, 1).Resize(m, 1) = Application.WorksheetFunction.Transpose(arr)
Erase arr

End Sub

jqgz_1999 · 发表于 2024-8-24 23:05

hcm19522 发表于 2024-8-23 11:45
I2{=INDEX(B:B,SMALL(IF($A$2:$A$42=LOOKUP("z",H$2:H2),ROW($2:$42),99),ROW()-IFERROR(LOOKUP(1,0/(H$2:H ...

谢谢大虾，搞定

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

[求助] 各位大神，求助用函数多对多查找。