거리 이름과 주소 목록이 있습니다. 이제 주소 열에 거리 이름의 값과 일치하는 값이 있는지 확인한 다음 거리 이름을 반환합니다.
Adress 열이 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
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다