模糊匹配查找的问题求助

半百 · 发表于 2023-9-20 15:12

angzang 发表于 2023-9-20 14:36
你好,非常感谢帮忙编写代码.我执行代码之后,发现如果合并表中的供应商和商品名这两列的内容是简写的话, ...

这样吗？

cyq4896 · 发表于 2023-9-20 15:29

参与一下..

angzang · 发表于 2023-9-20 16:56

半百发表于 2023-9-20 15:12
这样吗？

就是这效果,好厉害,太感谢,鲜花送上

angzang · 发表于 2023-9-20 16:57

cyq4896 发表于 2023-9-20 15:29
参与一下..

谢谢,已经就是我想要的效果

ykcbf1100 · 发表于 2025-3-24 10:53

练习一下

模糊查询

ykcbf1100 · 发表于 2025-3-24 10:53

Sub ykcbf() '//2025.3.24
Application.ScreenUpdating = False
zrr = Sheets("商品表").UsedRange
With Sheets("合并表")
arr = .UsedRange
For i = 2 To UBound(arr)
For x = 2 To UBound(zrr)
If CStr(zrr(x, 2)) Like "*" & arr(i, 1) & "*" = True And CStr(zrr(x, 3)) Like "*" & arr(i, 2) & "*" = True Then
.Cells(i, 5) = zrr(x, 1)
Exit For
End If
Next
Next
End With
Application.ScreenUpdating = True
MsgBox "OK！"
End Sub

复制代码

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

[求助] 模糊匹配查找的问题求助