VBA 模糊匹配查找

admintby

VBA模糊查找


比如  都市丽人内衣    查找关键字为   都丽   都人  都市人   成都丽人 都可以匹配到 都市丽人内衣

判断 关键字和查找对象互相包含的字段 包含字段越多匹配的就越准确

案例如附件，来个大师傅指点，万分感谢 模糊查找.7z (39.46 KB, 下载次数: 8)

2024-6-9 11:38 上传

点击文件名下载附件

kdsea

请测试下，看看可以吗？

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, r&, strFind$, isFlag As Boolean
   
    strFind = [C2].Value
    If Len(strFind) = 0 Then Exit Sub
   
    ar = Sheets(1).[A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
    For i = 5 To UBound(ar)
        isFlag = True
        For j = 1 To Len(strFind)
            If InStr(ar(i, 2), Mid(strFind, j, 1)) = 0 Then
                isFlag = False
                Exit For
            End If
        Next j
        If isFlag Then
            r = r + 1
            br(r, 1) = r
            For j = 2 To UBound(br, 2)
                br(r, j) = ar(i, j)
            Next j
        End If
    Next i
   
    [A1].CurrentRegion.Offset(3, 1).ClearContents
    If r Then [A4].Resize(r, UBound(br, 2)) = br
    Beep
End Sub

gwjkkkkk

请参考附件。。。

admintby

kdsea 发表于 2024-6-9 11:58
请测试下，看看可以吗？

WPS的打不开，还有密码

admintby

gwjkkkkk 发表于 2024-6-9 12:08
Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, r&, strFind$, isFlag As Boolean

这个能做到  查找对象和关键字互相包含查询

超出字段的关键字无法匹配到

以 维多利亚的秘密比基尼 举例

查找 维多利亚的秘密比基尼    现在可以使用  维多  多亚  多的秘密  等等打乱的关键字都可以查找到

超出字段的关键字查找不到比如
广州维多利亚                        包含 维多利亚
好看的秘密比尼                     包含 的秘密比尼   
维多利亚的秘密性感比基尼     包含 维多利亚的秘密比基尼

以上类型的关键字无法匹配到，大师傅能否做到字符匹配吗 ，不管关键字多少个字 只要其中包含就可以

kdsea

admintby 发表于 2024-6-9 14:16
WPS的打不开，还有密码

下边的更好，请看下边的吧

admintby

gwjkkkkk 发表于 2024-6-9 12:09
请参考附件。。。

老师你好
字符超出无法匹配
现在能实现  
老师你好    关键字   老你   你好  师好   老你好   这样的
想实现
老师你好    关键字   我的老师   我的老师你好吗  老师你很好很好   这样包含的关键字也可以匹配
辛苦老师指点 谢谢

gwjkkkkk

admintby 发表于 2024-6-9 14:48
老师你好
字符超出无法匹配
现在能实现  

试试。。。

LIUZHU

如果“成都丽人”能够匹配“ 都市丽人内衣”，成、都、丽、人四个字，成是不能匹配的，都、丽、人都可以匹配，也就是说，4个字，有3个字可以匹配，匹配率75%。
这里就要给一个标准，匹配率达到多少，就算匹配成功，例如大于60%。