Tự Viết Hàm Tách Họ Và Tên Trong Excel

Trước tiên bạn vào Menu Tools-Macro-Visual Basic Editor- Vào Insert – Module, đánh vào đoạn code dưới đây

Function Tach(ht As String, a As Integer) As String
Dim s1, s2 As String
Dim C, L As Integer
ht = Trim(ht) ‘Hàm Trim dùng để cắt những khoảng trắng thừa vô nghĩa đi
L = Len(ht)
s1 = Left(ht, L)
s2 = Right(s1, 1)
Do While s2 <> ” “
L = L – 1
s1 = Left(ht, L)
s2 = Right(s1, 1)
Loop

If a = 0 Then
Tach = Left(ht, L)
Else
If a = 1 Then
Tach = Right(ht, Len(ht) – L)
End If
End If
End Function

Xong bạn lưu lại, nhớ chọn ở mục Save as type là Microsoft Excel Add-In(*.xla) rồi ở mục File name bạn đánh tên vào – Save. Đóng khung soạn thảo này lại, vào Tools-Add-Ins… – chọn Browse – nhấp vào tên mà lúc nãy bạn lưu vào – OK. vậy là xong, bây giờ nếu muốn tách họ bạn chỉ việc gõ 
=tach(A2,0)
tương tự nếu muốn tách tên thì gõ
=tach(A2,1)
(ở đây 0 và 1 chỉ là đối số để phân biệt là mình đang tách tên hay tách họ giống như 0 và 1 trong hàm VLOOKUP vậy)