Cần giúp đỡ để tách địa chỉ

[uhg0314]

Cột địa chỉ có dữ liệu như sau
1 xxxx-Bạch Đằng - Chương Dương -HK - Hà Nội
2 Hữu Vĩnh-Hồng Quang-Ứng Hoà-HN
3 Bình Minh - Thanh Oai - HN

Bây giờ chỉ cần lấy là Chương Dương - Hk - Hà Nội thì làm thế nào ??? Mà có thể có các tỉnh khác thay cho Hà Nội
Bạn nào giỏi giúp tôi với.
file dữ liệu dạng này các anh ạ http://www.mediafire.com/?7qk3hsodz7jeaoa

 

[Luc Van]

Cột địa chỉ có dữ liệu như sau
1 xxxx-Bạch Đằng - Chương Dương -HK - Hà Nội
2 Hữu Vĩnh-Hồng Quang-Ứng Hoà-HN
3 Bình Minh - Thanh Oai - HN

Bây giờ chỉ cần lấy là Chương Dương - Hk - Hà Nội thì làm thế nào ??? Mà có thể có các tỉnh khác thay cho Hà Nội
Bạn nào giỏi giúp tôi với.

Có phải thế này không vậy?

 

[uhg0314]

gần giống như thế, nhưng yêu cầu lấy cả 2 !

gần giông như vậy nhưng yêu cầu của nó là lấy cả 2 và dấu để cách giữa tỉnh và TP là dấu - thì công thức sửa thành thế nào bạn nhỉ

 

[uhg0314]

có ai tách đc giúp em ko??????????????

 

[maimimo]

Có phải thế này không vậy?

Mình sửa theo bài bác Luc Van.Không biết có phải ý bạn là như này không nhỉ.mình là thành viên mới có gì sai sót mong cả nhà giúp đỡ nhé

 

[concogia]

có ai tách đc giúp em ko??????????????

"Chơi" nó bằng VBA, chịu "hông"????????????????????????

Public Function Tach(Cll As Range) As String
    Dim Dk
        Dk = InStrRev(Cll, "-", InStrRev(Cll, "-", Len(Cll)) - 1)
        Tach = Trim(Right(Cll, Len(Cll) - Dk))
End Function

Thân

 

[sealand]

Mình tham gia 1 hàm UDF

Public Function Dchi(dc As String) As String
    Dim ddanh
    ddanh = Split(dc, "-")
    Dchi = Trim(ddanh(UBound(ddanh) - 1)) & " - " & Trim(ddanh(UBound(ddanh)))
End Function