Nhờ giúp hàm tách họ tên! (2 người xem)

[phanthuan108]

Mình cần hàm tách họ tên trong Excell mà làm mãi không được. Mình muốn tách như sau:
Ví dụ: Nguyễn Phương Nam -> Tách Từ Phương Nam ra
Diệp Văn Minh Trung -> Minh Trung ra.
Tức là tách hai từ cuối của chuỗi ra riêng!
Xin nhờ mọi người giúp đỡ. Cảm ơn các bạn nhiều!

 

[phihndhsp]

Mình cần hàm tách họ tên trong Excell mà làm mãi không được. Mình muốn tách như sau:
Ví dụ: Nguyễn Phương Nam -> Tách Từ Phương Nam ra
Diệp Văn Minh Trung -> Minh Trung ra.
Tức là tách hai từ cuối của chuỗi ra riêng!
Xin nhờ mọi người giúp đỡ. Cảm ơn các bạn nhiều!

còn tên có 2 kí tự thì sao bạn????

 

[phanthuan108]

Mình làm cho trường hợp của mình luôn 3 từ trở lên bạn ah!

 

[phihndhsp]

còn tên có 2 kí tự thì sao bạn????

thử file này xem sao

 

[phanthuan108]

thử file này xem sao

Oh! Cảm ơn bạn nhiều nhé! Hàm đã tách đúng theo ý mình! Hi! Rất cảm ơn bạn!

 

[concogia]

Với dữ liệu như trong bài #4, có thể dùng công thức:

=TRIM(RIGHT(SUBSTITUTE(A9," ",REPT(" ",LEN(A9))),LEN(A9)*2))

Thân

 

[ExcelQN]

Nhân tiện các AC cho hỏi các tách số 0124503070 thành 0-124-50-307-0
0900060251 thành 0-900-06-025-1 vv...

 

[hungpecc1]

Nhân tiện các AC cho hỏi các tách số 0124503070 thành 0-124-50-307-0
0900060251 thành 0-900-06-025-1 vv...

ý bạn là tách ra làm nhiều ô , hay vẫn nằm trong 1 ô cells

 

[Good-Luck]

Nhân tiện các AC cho hỏi các tách số 0124503070 thành 0-124-50-307-0
0900060251 thành0-900-06-025-1vv...

Đây hình như là số ĐT , số Đt thì có 10 số Và 11 số nếu 11 số thì đầu 2 số hay sao?

 

[ExcelQN]

ý bạn là tách ra làm nhiều ô , hay vẫn nằm trong 1 ô cells

Nằm trong một ô bạn à

 

[♠AceBich♠]

thử file này xem sao

Mình thấy phần họ từ 4 chữ là tách không đúng như ý! Mình sưu tầm được đoạn code này bạn thử xem được không nhé!
Gõ công thức =tachten(o gia tri tach ten;1)

alt + f11 insert module

Private Function Tachten(ten As String, lg As Integer)
Dim j As Integer
Name = Trim(ten)
For j = Len(Name) To 1 Step -1
If Mid(Name, j, 1) = " " Then
If lg = "1" Then
Tachten = Right(Name, Len(Name) - j)
Else
Tachten = Left(Name, j)
End If
Exit For
End If
Next
End Function

 

[vanle33]

Nằm trong một ô bạn à

Bạn tách (left, mid, right) các phần của số ra sau đó thêm dấu "-" vào giữa các phần đã tách để ra kết quả như mong muốn.