搜索範圍內的文本，如果匹配，返回匹配值

Question

我有一個街道名稱和地址列表。現在我想查看地址欄中是否有與街道名稱中的值相匹配的值，然後返回街道名稱。

Answer 1

假設地址是A1：

For AddressRow = FirstRow To LastRow 
    address = Cells(AddressRow,1) 
    For StreetRow = FirstRow To LastRow 
     If "*" & Cells(StreetRow,3) & "*" Like address Then MsgBox Cells(StreetRow,3) 
    Next 
Next 

我希望你能定義FIRSTROW的LASTROW和知道你要的是現在去一個消息輸出。

Answer 2

假設地址列是A Street_name列是C。此代碼不是最優雅的，但工作。

Private Sub DoTheJob() 
    Dim intRowStreetName As Integer 
    Dim intRowAdress As Integer 
    intRowStreetName = 1 
    intRowAdress = 1 
    strPartOfStreetName = "nguyen" 
    With Worksheets("Sheet1") 
     Do While .Cells(intRowStreetName, 3).Value <> Empty 
      intRowAdress = 1 
      If InStr(1, .Cells(intRowStreetName, 3).Value, strPartOfStreetName, vbTextCompare) > 0 Then 
       Do While .Cells(intRowAdress, 1).Value <> Empty 
        If InStr(1, .Cells(intRowAdress, 1).Value, .Cells(intRowStreetName, 3).Value, vbTextCompare) > 0 Then 
         .Cells(intRowAdress, 2).Value = .Cells(intRowStreetName, 3).Value 
        End If 
       intRowAdress = intRowAdress + 1 
       Loop 
      End If 
      intRowStreetName = intRowStreetName + 1 
     Loop 
    End With 
End Sub