Hướng dẫn cách tách tên ra khỏi cột Họ và tên trong Excel.

Trong bảng tính bằng Excel bạn thường gặp những trường hợp sau:
+Họ và tên viết chung 1 cột nay muốn tách tên ra riêng 1 cột.
+Họ tên lót viết 1 cột và tên viết riêng 1 cột nay muốn hòa trộn thành 1 cột.
Trong bài viết này tôi xin trình bày cách tách tên ra khỏi cột họ và tên, cách làm như sau:
Bước 1: Tiến hành tách tên khỏi cột Họ và tên
Giả sử bạn có một bảng danh sách như dưới đây:

+Tại ô có tọa độ D4 ta nhập tên của cột phụ.
+Tại ô có tọa độ D5 nhập hàm sau:

=IF(ISERROR(FIND(" ",TRIM(B5),1)),"",RIGHT(TRIM(B5),LEN(TRIM(B5)) -FIND("#",SUBSTITUTE(TRIM(B5)," ","#",LEN(TRIM(B5))-LEN(SUBSTITUTE(TRIM(B5)," ",""))))))

+Sao chép công thức của ô D5 tới các ô khác trong cột D ta sẽ có kết quả tên của những người còn lại.

Bước 2: Tiến hành tách Họ và tên đệm khỏi cột Họ và tên.

+Tại ô C4 nhập Họ tên lót.
+Tại ô C5 nhập hàm =LEFT(B5,LEN(B5)-LEN(D5))
+Sao chép công thức ô C5 xuống các ô khác trong cột ta có kết quả.

Bây giờ bạn chỉ cần khép cột B lại để sử dụng cột C và D.
Chú ý: Nếu bạn muốn xóa cột B thì cột C và D sẽ báo lỗi bạn phải làm như sau:
+Bôi đen danh sách trong 2 cột C4 và D4, ấn CTRL+C để Copy
+Đặt con trỏ vào ô E4.
+Nháy vào Edit Paste Spesial đánh dấu vào ô Values bấm OK.
+Cuối cùng xóa bỏ 3 cột B,C,D là xong.

Nguyên văn bởi SA_DQ

Giả sử ta có danh sách như dưới đây:

HoTen	Ho	Ten
Võ Thường
Vũ Như Cẩn
Công Tằng Tôn Nữ Minh Nguyệt
Như Con Ốc

Nhiệm vụ đề ra là ta cần điền ngay cả họ & tên vô cột [Ho] & cột [Ten] tương ứng của những người này;

Nhiệm vụ sẽ khải thi nếu các bạn dùng chỉ 1 hàm tự tạo sau:

Mã:

Option Explicit
Function TachHo_Ten(HoTen As String, Optional Ho As Boolean = True) As String
Dim VTrr As Byte

HoTen = Trim$(HoTen)
If HoTen = "" Then
TachHo_Ten = ""
Exit Function
End If
VTrr = InStrRev(HoTen, " ", Len(HoTen))
If VTrr = 0 Then
TachHo_Ten = HoTen
Else
TachHo_Ten = IIf(Ho, Left(HoTen, VTrr - 1), Mid(HoTen, VTrr + 1))
End If
End Function

Lúc đó cú fáp tại ô [B4] sẽ là =TachHo_Ten(A4)

Còn cú fáp ở ô bên fải liền kề sẽ fức tạp hơn 1 tẹo: =TachHo_Ten(A4,FALSE)


Chúc các bạn thành công!