Tách họ tên

• Cách 1: Dùng công thức trực tiếp

B3: ô chứa họ tên.

C3: ô muốn tách tên.

C3 =TRIM(RIGHT(SUBSTITUTE(TRIM(B3)," ",REPT(" ",1000)),1000))

D3: ô muốn tách phần họ và tên lót

D3=TRIM(SUBSTITUTE(B3,C3,""))

• Cách 2: sử dụng code

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

Trong đó, B3 là ô chứa họ tên đầy đủ.
Họ = tachten(B3,0)
Tên = ten(B3)