大神们，VBA如何模糊匹配，数据量巨大，感谢各位出手相救

dgenson

Sub et()
Dim rng As Range, rng2 As Range, reg As Object
Set rng = [b2:b16]
Set reg = CreateObject("vbscript.regexp")
For Each i In [g2:g10]

   Set rng2 = rng.Find(i)
   If Not rng2 Is Nothing Then
      i(1, 2).Value = rng2(1, 2).Value
   Else
    If Len(i) > 1 Then
    For n = 1 To Len(i) - 1
       i1 = Right(i, n)
       Set rng2 = rng.Find(i1)
       If Not rng2 Is Nothing Then
         i(1, 2).Value = rng2(1, 2).Value
         Exit For
         Else
           a = "无"
        End If
        
   
    Next
       If a = "无" Then
          For n = 1 To Len(i) - 1
             i1 = Mid(i, n, 1)
             Set rng2 = rng.Find(i1)
           If Not rng2 Is Nothing Then
             i(1, 2).Value = rng2(1, 2).Value
             Exit For
             Else
             i(1, 2).Value = "无"
             a = ""
           End If
           Next
       End If
    Else
    i(1, 2).Value = "无"
    End If
   End If
Next
End Sub

我的日记

haohao530 发表于 2019-6-27 10:35
建议还是先学习最基本的商品编码和分类规则吧，否则EXCEL再怎么精通，得到的答案也可能不是你想要的，比如 ...

看来哥们也是一个懂报关的友人，业务特殊，正常货物有时间慢慢归类是没问题的，实在没办法才出此下策