如何实现模糊匹配

LIUZHU

回这个帖子，折腾了一下午，总是提示错误，以下是匹配 代码

1. Private Sub CommandButton1_Click()
   
2.     Dim Arr(), Brr(), i%, j%, r%, k%
   
3.    
   
4.     With Sheets("西药")
   
5.         r = .Range("A" & .Cells.Rows.Count).End(xlUp).Row
   
6.         Arr = .Range("A1:M" & r).Value
   
7.     End With
   
8.    
   
9.     r = Range("A" & Cells.Rows.Count).End(xlUp).Row
   
10.     Brr = Range("A1:F" & r).Value
    
11.    
    
12.     For i = 1 To UBound(Brr)
    
13.         For j = 1 To UBound(Arr)
    
14.             If Brr(i, 1) Like "*" & Arr(j, 10) & "*" Then
    
15.                 For k = 1 To 5
    
16.                     Brr(i, k + 1) = Arr(j, k)
    
17.                 Next
    
18.             End If
    
19.         Next
    
20.     Next
    
21.    
    
22.     Range("A1:F" & r).Value = Brr
    
23. End Sub

复制代码

LIUZHU

这是附件，楼主试试看看

yzlxyz

LIUZHU 发表于 2013-7-4 17:30
这是附件，楼主试试看看

多谢老师，我试试，看到like函数了，我就是搞不定模糊匹配，再次感谢，浪费您一下午时间，实在抱歉

yzlxyz

yzlxyz 发表于 2013-7-4 12:28
非常感谢老师的帮助，可能意思没表达清楚主要就是想能不能模糊智能匹配

”西药“表是一个药品国家分类 ...

哈哈，liucqa老师现身了，学过你的VBA挖取网页数据，可惜现在还没学会，还是谢谢你了

yzlxyz

LIUZHU 发表于 2013-7-4 17:30
这是附件，楼主试试看看

试了下，可以，再次感谢liuzhu老师了，哈哈，太高兴了了

blackttea1

做个记号，谢谢

shslsun

也做个记号

shslsun

高手总在民间