excel vlookup模糊比對

zbc231

小弟最近得幫一堆住址分組，
例如了地址如下：
新北市泰山區黎明里1鄰泰林路二段*巷*號
新北市泰山區大科里10鄰仁愛路*巷*號*樓
新北市泰山區義仁里4鄰辭修路*號
新北市泰山區新明里18鄰民國街*巷*之*號
新北市泰山區貴賢里7鄰新生路*號
分類依據有的是比對到里，有的是必須比對到鄰，
如：
黎明里、大科里10鄰為A組，
義仁里4鄰、新明里、貴賢里7鄰為B組，
...

瀏覽完整內容，請先 註冊 或 登入會員

tryit244178

查了一下，好像是比對文字的時候就會出包…
研究了好久。算了，搞不懂…自已寫一個比較快

貼到模組裡，儲存格裡打 =GetClass(B2,分組依據,2)

1. Public Function GetClass(ByVal sourceRange As Range, ByVal seachRange As Range, ByVal column As Integer) As String
   
2.     Dim i As Integer
   
3.     Dim seachValue As String
   
4. 
   
5.     GetClass = "#N/A"
   
6.    
   
7.     Select Case column
   
8.         Case Is > seachRange.Columns.Count
   
9.             GetClass = "#REF!"
   
10. 
    
11.         Case Is <= 0
    
12.             GetClass = "#VALUE!"
    
13.                
    
14.         Case Else
    
15.             For i = 1 To GetLastRow(seachRange)
    
16.                 seachValue = Left(sourceRange, Len(seachRange.Cells(i, 1).Value))
    
17.                 If Not seachValue = "" And seachRange.Cells(i, 1).Value = seachValue Then
    
18.                     GetClass = seachRange.Cells(i, column).Value
    
19.                     Exit For
    
20.                 End If
    
21.             Next i
    
22.     End Select
    
23. End Function
    
24. 
    
25. Private Function GetLastRow(ByVal sourceRange) As Integer
    
26.     If sourceRange.Cells(sourceRange.Cells.Rows.Count, 1).End(xlUp).Row = 1 Then
    
27.         GetLastRow = sourceRange.Cells.Rows.Count
    
28.     Else
    
29.         GetLastRow = sourceRange.Cells(sourceRange.Cells.Rows.Count, 1).End(xlUp).Row
    
30.     End If
    
31. End Function

複製代碼

---

有2點要注意：

第一，分組依據裡，得把前面的地址全部打進去
也就是你不能只打什麼什麼里，要打「新北市泰山區新明里」
像這樣才不會比對不出來

第二，把範圍比較小的排上面
像「新北市泰山區新明里11鄰」如果排在「新北市泰山區新明里」下面的話
就永遠不會抓到11鄰去

補充內容 (2017-2-16 05:25 PM):
哇咧！結果最後找到問題了…只要對 分組依據 做遞減排序就行了……真是浪費時間做白工…
...

瀏覽完整內容，請先 註冊 或 登入會員

zbc231

tryit244178 發表於 2017-2-16 09:31 AM

下載: 訪客無法瀏覽下載點，請先 註冊 或 登入會員

查了一下，好像是比對文字的時候就會出包…
研究了好久。算了，搞不懂…自已寫一個比較快

...

瀏覽完整內容，請先 註冊 或 登入會員

zbc231

感謝你的幫忙，
我後來用公式將地址中的里和里鄰分兩格找出，
然後去完整比對，來進行分組活動。