Tách họ và tên trong Excel

Bước 1:

- Mở một Workbook mới

- Vào Tools > Macro > Visual Basic Editor

- Click chuột phải, chọn Insert Module > Module

Bước 2:

Nhập đoạn mã lệnh sau:

Private Function name (ten As String, lg As Integer)

Dim j As Integer

Tent=Trim(ten)

For j=len(Tent) To 1 Step -1

If Mid(Tent,j,1)= “ “ Then

If lg= “1” Then

Name=Right(Tent, Len(Tent)-j)

Else

Name=Left(Tent,j)

End If

Exit For

End If

Next

End Function

Sau khi nhập đoạn mã lệnh trên, bạn bấm nút Save trên thanh công cụ.

Vậy là bạn có thể sử dụng hàm này trong bảng tính vừa tạo. Muốn sử dụng nó trong mọi bảng tính như các hàm khác, bạn hãy thực hiện bước kế tiếp.

Bước 3:

Sau khi ghi lại đoạn mã lệnh trên, bạn đóng cửa sổ Visual Basic lại, trở về bảng tính Excel, chọn File > Save As…

Tại ô Save As Type, chọn “Microsoft Excel Add-Ins (*.xla). Rồi đặt cho nó một cái tên là Name.

Bước 4:

Vào Tools > Add-Ins. Bấm vào Browse chọn đường dẫn đến file Name.xla vừa tạo. Bấm OK.

Bước 5 (cách dùng):

- Bạn dùng hàm này như một hàm bình thường của Excel. Ví dụ ta có cột A ghi họ và tên.

- Để tách họ và tên đệm, bạn gõ hàm sau: =Name(A2,0)

- Để tách tên, bạn gõ hàm sau: =Name(A2,1).