关于"模糊查找并返回多个结果"的解决方案

hjw123123

各位大神，帮忙看一下附件中数据，要得到我想要的结果，怎么用公式快速解决，跪谢！

hxj119

=TEXTJOIN("、",,IF(ISNUMBER(FIND(E6,C3:C14)),B3:B14,""))

博爱风雨同舟

=ARRAYTOTEXT(FILTER(B3:B14,1-ISERR(FIND(E6,C3:C14))))

秃头发师

=TEXTJOIN(",",TRUE,IFERROR(IF(FIND(E7&"、",C3:C14&"、"),B3:B14),""))

秃头发师

博爱风雨同舟 发表于 2024-7-19 17:32
=ARRAYTOTEXT(FILTER(B3:B14,1-ISERR(FIND(E6,C3:C14))))

终于见到ARRAYTOTEXT的正经用法了

要学习要学习

hxj119 发表于 2024-7-19 17:14
=TEXTJOIN("、",,IF(ISNUMBER(FIND(E6,C3:C14)),B3:B14,""))

2013版本没有TEXTJOIN  还有其它方法吗？

要学习要学习

要学习要学习 发表于 2024-9-30 18:06
2013版本没有TEXTJOIN  还有其它方法吗？

如果再是跨表呢？

niko88819

要学习要学习 发表于 2024-9-30 18:06
2013版本没有TEXTJOIN  还有其它方法吗？

=JoinTxt(E6,C3:C14,B3:B14,"、")

1. Function JoinTxt(criteria As String, criteriaRange As Range, textRange As Range, delimiter As String) As String
   
2.     Dim result As String
   
3.     Dim i As Long
   
4.     result = ""
   
5.     For i = 1 To criteriaRange.Count
   
6.         If InStr(1, criteriaRange.Cells(i, 1).Value, criteria) > 0 Then
   
7.             If result = "" Then
   
8.                 result = textRange.Cells(i, 1).Value
   
9.             Else
   
10.                 result = result & delimiter & textRange.Cells(i, 1).Value
    
11.             End If
    
12.         End If
    
13.     Next i
    
14.     JoinTxt = result
    
15. End Function

复制代码

niko88819

要学习要学习 发表于 2024-9-30 18:11
如果再是跨表呢？

代码自定义函数，审核中，请耐心等待

要学习要学习

niko88819 发表于 2024-10-1 07:50
代码自定义函数，审核中，请耐心等待

感谢！