Trích xuất tên đường khi bao gồm cả địa chỉ lẫn tên đường

[thuankieuplaza]

Lọc tên đường khi bao gồm cả địa chỉ lẫn tên đường

Em có file dạng này, em không hiểu có công thức nào có thể làm được điều này hay ko, ý em là chỉ cần làm 1 ô sau đó kéo xuống là ok hết,hic, trình độ em còn non quá, mong các thầy giúp đỡ em với. File excel đây ạ

 

[hungpecc1]

Em có file dạng này, em không hiểu có công thức nào có thể làm được điều này hay ko, ý em là chỉ cần làm 1 ô sau đó kéo xuống là ok hết,hic, trình độ em còn non quá, mong các thầy giúp đỡ em với. File excel đây ạ

thử vậy xem :

Function ABC(source) As String
Dim str$
    str = CStr(source)
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "[0-9/()\s]+(.+)\d*"
        If .test(str) Then
            ABC = .Execute(str)(0).subMatches(0)
        End If
    End With
End Function

 

[VetMini]

thử vậy xem :

Function ABC(source) As String
Dim str$
    str = CStr(source)
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "[0-9/()\s]+(.+)\d*"
        If .test(str) Then
            ABC = .Execute(str)(0).subMatches(0)
        End If
    End With
End Function

ABC("12A Cong Quynh") ====> KQ: "A Cong Quynh"
và
ABC("12 Cong Quynh Q1") ====> KQ: "Cong Quynh Q1"

Cái trước (địa chỉ có A, Bis...) còn sửa được. Cái sau không thể nào sửa được. Muốn sửa phải có một danh sách quận để tham chiếu. Nếu có phường nữa thì...

 

[thuankieuplaza]

thử vậy xem :

Function ABC(source) As String
Dim str$
    str = CStr(source)
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "[0-9/()\s]+(.+)\d*"
        If .test(str) Then
            ABC = .Execute(str)(0).subMatches(0)
        End If
    End With
End Function

ANH cho em hỏi em sẽ làm gì với đống code này ạ

 

[hungpecc1]

ANH cho em hỏi em sẽ làm gì với đống code này ạ

tải file tôi đính kèm về xem thử thôi !

 

[hungpecc1]

ABC("12A Cong Quynh") ====> KQ: "A Cong Quynh"
và
ABC("12 Cong Quynh Q1") ====> KQ: "Cong Quynh Q1"

Cái trước (địa chỉ có A, Bis...) còn sửa được. Cái sau không thể nào sửa được. Muốn sửa phải có một danh sách quận để tham chiếu. Nếu có phường nữa thì...

Em cũng chỉ "vọc" bừa , sao cho kết quả như hình đính kèm của bài #1 thôi !

 

[thuankieuplaza]

dạ em cảm ơn mọi người em biết cách làm rồi ạ
Đúng là mấy cái A, Bis.... thì lệnh ko hiểu, vậy sửa lại bằng cách nào mong các anh giúp đỡ ạ
Còn cái phía sau nếu ko sửa được cũng ko sao ạ.
Em cảm ơn các anh nhiều

 

[hungpecc1]

dạ em cảm ơn mọi người em biết cách làm rồi ạ
Đúng là mấy cái A, Bis.... thì lệnh ko hiểu, vậy sửa lại bằng cách nào mong các anh giúp đỡ ạ
Còn cái phía sau nếu ko sửa được cũng ko sao ạ.
Em cảm ơn các anh nhiều

up thử 1 file ẽxcel đầy đủ hết lên để mọi người xem có cách nào giải quyết không ??

Nếu mà nó link tink hỗn độn thì cũng đành thủ công thôi bạn ah !

 

[thuankieuplaza]

up thử 1 file ẽxcel đầy đủ hết lên để mọi người xem có cách nào giải quyết không ??

Nếu mà nó link tink hỗn độn thì cũng đành thủ công thôi bạn ah !

Rất cảm ơn vì sự nhiệt tình của anh.
File của em đây ạ.

 

[VetMini]

Muốn tránh mấy cái a, b thì thêm điều kiện này vào cái Regex. Nhưng như thế vừa cực vừa không hiệu nghiệm lắm.

Cách dễ hơn là sau khi tách ra rồi thì cứ chỉa vào hai ký tự đầu, hễ nó có dạng [A-Za-z]\s (\s là một dấu cách) thì cắt đi.
Nhưng nếu người ta viết tắt tên đường thì ráng chịu (Anh Giác viết thành A Giác)
Bố ai phân biệt được "12 A Giác..." là cái gì.