模糊查询

locker00700

请问如何用VBA实现这种模糊查询？
A列不一定是雪梨，还有其他品种名称；

测试.rar (8.7 KB, 下载次数: 13)

2021-4-28 16:24 上传

点击文件名下载附件

zpy2

http://club.excelhome.net/forum.php?mod=viewthread&tid=1578713&mobile=
根据模糊相似度匹配？

zpy2

zpy2 发表于 2021-4-28 19:45
http://club.excelhome.net/forum.php?mod=viewthread&tid=1578713&mobile=
根据模糊相似度匹配？

select * from 流水（表一）明细表,产品资料表二明细表 where regexp('.*'||产品资料表二明细表.品种||'.*'||产品资料表二明细表.等级||'.*'||产品资料表二明细表.说明,流水（表一）明细表.品种||等级（说明）)

正则匹配也行的。

3190496160

Sub 数据匹配()
Dim d As Object
Dim ar As Variant, br As Variant
Set d = CreateObject("scripting.dictionary")
With Sheet1
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    .Range("c3:c" & r + 3) = Empty
    ar = .[a1].CurrentRegion
    br = .[e1].CurrentRegion
    For i = 3 To UBound(br)
        If Trim(br(i, 1)) <> "" And Trim(br(i, 2)) <> "" And Trim(br(i, 3)) <> "" Then
            zf = Trim(br(i, 1)) & "|" & Trim(br(i, 2)) & "|" & Trim(br(i, 3))
            d(zf) = i
        End If
    Next i
    For i = 3 To UBound(ar)
        If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
            bj_1 = InStr(Trim(ar(i, 2)), "号")
            bj_2 = InStr(Trim(ar(i, 2)), "（") + 1
            dj_1 = Mid(Trim(ar(i, 2)), 1, bj_1)
            dj_2 = Mid(Trim(ar(i, 2)), bj_2, Len(Trim(ar(i, 2))) - bj_2)
            zf = Trim(ar(i, 1)) & "|" & dj_1 & "|" & dj_2
            m = d(zf)
            If m <> "" Then
                ar(i, 3) = br(m, 4)
            End If
        End If
    Next i
    .[a1].CurrentRegion = ar
End With
MsgBox "ok!", 64, "3190496160 提醒"
End Sub

3190496160

测试.rar (18.65 KB, 下载次数: 6)

2021-4-29 09:24 上传

点击文件名下载附件

3190496160

代码仅根据上传附件中数据特点而写，仅供参考，