Tách họ tên

[vulhu06]

Các bác cho em hỏi, công thức tách họ tên. Ví dụ "nguyễn xuân thanh tâm", tách 1cột là "Nguyên xuân thanh", 1cột là "Tâm" , xin cảm ơn nhiều

 

[Luc Van]

Các bác cho em hỏi, công thức tách họ tên. Ví dụ "nguyễn xuân thanh tâm", tách 1cột là "Nguyên xuân thanh", 1cột là "Tâm" , xin cảm ơn nhiều

bạn dùng thử code này xem

 Public Function ten(ByVal Chuoi As String) As String
Myr = Trim(Chuoi)
ten = Right(Myr, Len(Myr) - InStrRev(Myr, " "))
End Function
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

bạn xem thêm file đính kèm

 

[hoangminhtien]

Giả sử B1 là ô chứa tên của bạn.
Tên bạn dùng công thức, ô F1

F1=TRIM(RIGHT(SUBSTITUTE(TRIM(B1)," ",REPT(" ",1000)),1000))

Họ và đệm bạn dùng công thức, ô E1

E1=TRIM(SUBSTITUTE(B1,F1,""))

 

[hoamattroicoi]

Mình có công thức này học được trên GPE rất hay, bạn xem thử file đính kèm nhé!

 

[phihndhsp]

công thức của bạn bị sai nếu tên là A hoặc có tên không có họ bạn test lại nha
bạn vào địa chỉ này xem nha
http://www.giaiphapexcel.com/forum/showthread.php?50477-Cắt-họ-tên-không-cần-VBA
cắt tên cực ngắn

 

[be_09]

Cách tách một cụm từ thật đơn giản, bạn không cần phải dùng hàm làm chi cho rắc rối, bạn xem File hướng dẫn thì bạn sẽ biết cách làm thôi, quá đơn giản đi chứ.
Bạn vulhu06@yahoo.com thân mến.
Do không tải file được, thôi mình gửi Mail qua cho bạn vậy nhé.