相似数据查找，听说必须VBA才行，公式好像解决不了。求助

xiening007

相似数据查找，听说必须VBA才行，公式好像解决不了。工作上很多都会遇到。哪位高手帮帮忙，万分感激！ 求助.rar (8.81 KB, 下载次数: 25)

2014-10-11 11:11 上传

点击文件名下载附件

xiening007

难道VBA也不能解决？？

a68508122

= =很乱 举个例子 A列的 哪个=B列哪个？

liu-aguang

求助.rar (19.75 KB, 下载次数: 25)

2014-10-11 15:10 上传

点击文件名下载附件

doitbest

1. Public Sub abc()
   
2. Dim ar, br, cr, rep, i, ii, lenth
   
3. ar = Range([a2], [a65536].End(3))
   
4. br = Range([b2], [b65536].End(3))
   
5. ReDim cr(1 To UBound(br), 1 To 1)
   
6. Set rep = CreateObject("vbscript.regexp")
   
7. rep.Global = True
   
8. rep.Pattern = "^\w+| .*$"
   
9. For i = 1 To UBound(br)
   
10.   br(i, 1) = rep.Replace(br(i, 1), "")
    
11. Next
    
12. For i = 1 To UBound(ar)
    
13.     For ii = 1 To UBound(br)
    
14.         rep.Pattern = "[" & br(ii, 1) & "]"
    
15.         lenth = Len(ar(i, 1))
    
16.         If rep.Execute(ar(i, 1)).Count >= Int(lenth * 0.8) Then
    
17.             cr(ii, 1) = ar(i, 1)
    
18.             Exit For
    
19.         End If
    
20.     Next
    
21. Next
    
22. [c2].Resize(UBound(cr)) = cr
    
23. End Sub

复制代码

doitbest

请参考附件

lxm19731108

谢谢分享。