Lâu lâu cũng có một số bạn hỏi tôi làm thế nào để tách các hàm họ và tên trong excel, thật ra kiến thức này hầu như chúng ta đã được học trong chương trình “tinh học căn bản” nhưng cũng có người quên chứ đúng không :D.
Từ file EXCEL có chứa dữ liệu bạn đang muốn tách họ và tên – bạn hãy nhấn Alt + F11 sau đó nhấn insert nhấn module dán đọan mã sau vào trong cửa sổ 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
SỬ DỤNG HÀM TÍNH TÁCH HỌ VÀ TÊN:
Giả sử bạn muốn tách tên ra khỏi họ và họ đệm tại ô A1 = Trần Trung Nghĩa / Gõ = tachten(A1,0) / Kết quả: Trung Nghĩa
Giả sử bạn muốn tách tên ra khỏi họ và họ đệm tại ô A1 = Trung Nghĩa / Gõ = tachten(A1,1) / Kết quả: Nghĩa