高手帮个忙（lookup和find函数）

高个子

如果有两个或多个，你要取哪个？

ymcly2009

henry6 发表于 2022-7-1 22:54
练习一个

=OFFSET($E$1,SMALL(IF(ISNUMBER(FIND(A2,$E$2:$E$9)),ROW($2:$9),4^8),COLUMN(A1))-1,)&""

谢谢您的回复，学习了，高手

ymcly2009

Eric0236 发表于 2022-7-1 20:50
=IFERROR(LOOKUP(,-FIND(A2,$E$2:$E$9),$E$2:$E$9),"填你想要的")

FIND(A2,$E$2:$E$9)，在全称中找简称 ...

谢谢，学习了，高手

ymcly2009

Eric0236 发表于 2022-7-1 20:50
=IFERROR(LOOKUP(,-FIND(A2,$E$2:$E$9),$E$2:$E$9),"填你想要的")

FIND(A2,$E$2:$E$9)，在全称中找简称 ...

谢谢您的回复，学习了，高手

ymcly2009

henry6 发表于 2022-7-1 22:54
练习一个

=OFFSET($E$1,SMALL(IF(ISNUMBER(FIND(A2,$E$2:$E$9)),ROW($2:$9),4^8),COLUMN(A1))-1,)&""

谢谢您的回复，学习了，高手

ymcly2009

高个子 发表于 2022-7-2 16:56
如果有两个或多个，你要取哪个？

您好，如果有两个或多个不匹配，比如在A列增加老白干，在E列增加北京二锅头酒公司，则会出现两个不匹配的情况

祝洪忠-

ymcly2009 发表于 2022-7-2 16:54
谢谢超级版主的回复，例题中有一个不匹配，即”郞酒与贵州遵义董酒厂“，与如果有两个或多个，公式会如何 ...

可以上传部分有代表性的数据 然后手工模拟一下最终希望得到的结果，问题解决会更快一些。

今日123

帮你做了vba模糊查询，数据多不会卡，还快。函数太多表格会卡。
Sub 查询()
Dim arr, brr, crr, i, str
Application.ScreenUpdating = False
r = Range("a65536").End(3).Row
arr = Range("a2:a" & r)
brr = Range("e2:E" & Cells(Rows.Count, "e").End(3).Row)
ReDim crr(1 To UBound(arr), 1 To 1)
[c2:c65536].ClearContents
For i = 1 To UBound(arr)
    If Len(arr(i, 1) > 0) Then
        str = "*" & Mid(arr(i, 1), 1) & "*"
    End If
    For k = 1 To UBound(brr)
        If brr(k, 1) Like str Then
            m = m + 1
            crr(m, 1) = brr(k, 1)
        End If
    Next k
Next i
Range("c2").Resize(m, 1) = crr
Application.ScreenUpdating = True
End Sub

ymcly2009

ymcly2009 发表于 2022-7-2 17:04
谢谢您的回复，学习了，高手

你们都太厉害了