VBA 如何批量模糊匹配数据

smile121212

大神们，请问如果能实现附件中的批量模糊查找？

涉及两张表格
表格一：模板表，或者叫数据源表，A、B两列分别罗列了产品型号和项目名称
表格二：需要模糊查找的数据，A列为“物料描述”，B、C列为查找后得到的产品型号和项目名称。

想达到的效果：从表二物料描述中，提取出表一罗列的产品型号和项目名称。（主要是出现的位置没有规律）


谢谢各位不吝赐教~

kimmyyang

没啥规律啊，有规律的话，正则表达式应该可以

smile121212

kimmyyang 发表于 2019-6-28 11:11
没啥规律啊，有规律的话，正则表达式应该可以

唯一的规则大概就是找关键字了~
位置和分隔符都有可能不同，是有点飘忽

kimmyyang

smile121212 发表于 2019-6-28 11:22
唯一的规则大概就是找关键字了~
位置和分隔符都有可能不同，是有点飘忽

可是你的关键字也不是唯一，各有各的特点，即使能写出正则，那也太冗杂

koala219

把你的项目名称和和产品型号建立一个库，简单的说做一个清单，就可以实现。
结合你物料描述和清单信息，就可以实现检索了。

一把小刀闯天下

'有一处不一样，确认一下，，，

Option Explicit

Sub test()
  Dim arr, brr, i, j, k, t, p
  arr = Sheets("产品型号及项目").[a1].CurrentRegion.Resize(, 2)
  Sheets("模糊查找").Activate
  brr = [a1].CurrentRegion.Resize(, 3)
  For i = 2 To UBound(brr, 1)
    For j = 2 To UBound(arr, 1)
      p = InStr(brr(i, 1), arr(j, 1))
      If p > 0 Then Exit For
    Next
    If j = UBound(arr, 1) + 1 Then
      brr(i, 2) = vbNullString
      For j = 2 To UBound(arr, 1)
        If InStr(brr(i, 1), arr(j, 2)) Then Exit For
      Next
      If j = UBound(arr, 1) + 1 Then
        brr(i, 3) = vbNullString
      Else
        brr(i, 3) = arr(j, 2)
      End If
    Else
      brr(i, 2) = arr(j, 1)
      If InStr(brr(i, 1), arr(j, 2)) Then
        If InStr(brr(i, 1), arr(j, 2)) <> p Then
          brr(i, 3) = arr(j, 2)
        Else
          If InStr(p + 1, brr(i, 1), arr(j, 2)) Then
            brr(i, 3) = arr(j, 2)
          Else
            brr(i, 3) = vbNullString
          End If
        End If
      Else
        brr(i, 3) = vbNullString
      End If
    End If
  Next
  [e1].Resize(UBound(brr, 1), UBound(brr, 2)) = brr
End Sub

killq

好像是在表二中查找表一中提供的字符串？这有啥意义？直接双循环不就行了？

从表二中提取要查找的内容，然后在表一中逐行查找这个字符串，找到了就在对应单元格输出，找不到就输出空

smile121212

killq 发表于 2019-6-28 12:18
好像是在表二中查找表一中提供的字符串？这有啥意义？直接双循环不就行了？

从表二中提取要查找的内容， ...

但问题是怎么从表二提取要查的字符呢，因为“要查的字符”其实是在表一列示的，在表一的才是“要查的字符”

killq

smile121212 发表于 2019-6-28 14:43
但问题是怎么从表二提取要查的字符呢，因为“要查的字符”其实是在表一列示的，在表一的才是“要查的字符 ...

for str = 表2中第一个数值 to 表二中最后一个数值
for b = 表1中第一个数值 to 表1中最后一个数值
   if b 中有 str then 写上str else ""
next
next

自己去折腾吧，希望我没有理解错你的描述

一尘一世界

[求助] VBA 如何批量模糊匹配数据，请问，问题解决了吗？我也有同样需求，能不能分享结果，谢谢~！