关于模糊匹配的求助。跟论坛其他帖子类型都不一样。

莫雄

各位大神，我翻遍了论坛，都没找到我这种匹配类型的。
尝试了abo、Dictionary、find的方法，还有mysql的like去匹配，但是水平不太够，都没能整出来需要的效果。
求助，求助。具体描述请看附件。

yjh_27

你的匹配条件应整理为一对照表

huang1314wei

数据量太少 ，描述也不清楚，问问题要说重点，把你的问题以及想要达到的匹配效果说清楚，有什么注意事项等等

不要提没有用的，比如尝试了什么什么方法等等，这些文字都是无关紧要的

袁振涛

源数据你多给点几十条，我来给你搞搞，特别要把特殊情况的给出来
省的一会再改

袁振涛

1.     Dim objDic As Object
   
2.     Dim objDic2 As Object
   
3.     Dim Arr, Arr2, Arr3
   
4.     Dim strBeginValue$
   
5.     Dim strEndValue$
   
6.     Dim intLength%
   
7.     Dim boolCheck As Boolean
   
8.     Dim strValue$
   
9.     Arr = Sheets("匹配数据").[a1].CurrentRegion
   
10.     Arr2 = Sheets("需求匹配结果").[a1].CurrentRegion
    
11.     ReDim Arr3(1 To UBound(Arr2))
    
12.     Set objDic = CreateObject("scripting.dictionary")
    
13.     For i = 2 To UBound(Arr)
    
14.         strBeginValue = Arr(i, 1)
    
15.         strEndValue = Arr(i, 2)
    
16.         If Not objDic.exists(strBeginValue) Then
    
17.             Set objDic(strBeginValue) = CreateObject("scripting.dictionary")
    
18.         End If
    
19.         If Not objDic(strBeginValue).exists(strEndValue) Then
    
20.             objDic(strBeginValue)(strEndValue) = strEndValue
    
21.         End If
    
22.     Next
    
23.     For i = 2 To UBound(Arr2)
    
24.         strBeginValue = Arr2(i, 1)
    
25.         strEndValue = Arr2(i, 2)
    
26.         intLength = Len(strEndValue)
    
27.         For j = intLength To 1 Step -1
    
28.             strValue = Left(strEndValue, j)
    
29.             If objDic(strBeginValue).exists(strValue) Then
    
30.                 Arr3(i) = strValue
    
31.                 boolCheck = True
    
32.                 Exit For
    
33.             End If
    
34.         Next
    
35.         If boolCheck = False Then
    
36.             Arr3(i) = strEndValue
    
37.         Else
    
38.             boolCheck = False
    
39.         End If
    
40.     Next
    
41.     [d1].Resize(UBound(Arr3), 1) = Application.Transpose(Arr3)

复制代码

袁振涛

附件如下，及时反馈

一指禅62

LOOKUP函数不行吗！


模糊匹配求助.zip (10.11 KB, 下载次数: 9)

2015-12-4 17:05 上传

点击文件名下载附件

jinghexi

谢谢试试看

sheeboard

这个最好把匹配数据的目的地全拿出来处理，产生目的地总表再去匹配，不然匹配会出现多个结果，如：吉林省吉林市昌邑区，就会出现吉“林省吉林市”和 “吉林省吉林市昌邑区”两个结果。