Hàm vả thủ tục tách họ tên

Họ tên thường nhập chung 1 cột cho nhanh. Sau đó ta có thể tách riêng tên ra 1 cột. Nhưng có lúc chúng ra cần tách ra 2 cột: cột họ, cột tên. Đây là 2 làm làm công việc đó:======================Function TachHo(hoten As String) As Stringhoten = Trim(hoten)If hoten = "" ThenTachHo = ""Elsevt = InStrRev(hoten, " ", Len(hoten))If vt = 0 ThenTachHo = ""ElseTachHo = Trim(Mid(hoten, 1, vt))End IfEnd IfEnd Function====================Function TachTen(hoten As String) As Stringhoten = Trim(hoten)If hoten = "" ThenTachTen = ""Elsevt = InStrRev(hoten, " ", Len(hoten))If vt = 0 ThenTachTen = hotenElseTachTen = Mid(hoten,...
Nội dung trích xuất từ tài liệu:
Hàm vả thủ tục tách họ tên Hàm vả thủ tục tách họ tênHọ tên thường nhập chung 1 cột cho nhanh. Sau đó ta có thể tách ri êng tên ra 1cột. Nhưng có lúc chúng ra cần tách ra 2 cột: cột họ, cột tên. Đây là 2 làm làmcông việc đó:======================Function TachHo(hoten As Strin g) As Stringhoten = Trim(hoten)If hoten = ThenTachHo = Elsevt = InStrRev(hoten, , Len(hoten))If vt = 0 ThenTachHo = ElseTachHo = Trim(Mid(hoten, 1, vt))End IfEnd IfEnd Function====================Function TachTen(hoten As String) As Stringhoten = Trim(hoten)If hoten = ThenTachTen = Elsevt = InStrRev(hoten, , Len(hoten))If vt = 0 ThenTachTen = hotenElseTachTen = Mid(hoten, vt + 1)End IfEnd IfEnd Function===================Bạn sử dụng hàm này bình thường như các hàm khác của Excel, nhưng nếu bạncần tách họ tên thành 2 cột riêng biệt thì bạn phải thực hiện một loạt các thao tácsau:1. tách họ, tách tên trên 2 cột phụ2. chèn thêm cột bên trái cột họ tên3. Copy 2 cột họ tên mới tách và dán bằng Paste Special - Value trở về nơi cũ.Để làm nhanh các công việc đó, bạn có thể sử dụng thủ tuc TachHoTen.Sử dụng thủ tục này như sau:1. Chọn tất cả các ô chứa họ tên, kể cả ô chứa tiêu đề trên đầu.2. Chạy Sub TachHoTen.VBA sẽ làm thay cho bạn các việc còn lại. Lưu ý bạn là số cột trong vùng chọnphải là 1, nếu lớn hơn 1 VBA không thực hiện.====================Sub TachHoTen()rd = Selection.Rowsr = Selection.Rows.Countrc = rd + sr - 1c = Selection.Columnsc = Selection.Columns.CountIf sc > 1 ThenMsgBox Ban chon & sc & cot. Ban phai chon lai 1 cot, vbOKOnly, ThongbaoExit SubEnd IfRange(Cells(rd, c), Cells(rc, c)).Insert Shift:=xlToRightRange(Cells(rd, c), Cells(rc, c)).Insert Shift:=xlToRightFor r = rd To rcCells(r, c) = TachHo(Cells(r, c + 2))Cells(r, c + 1) = TachTen(Cells(r, c + 2))NextRange(Cells(rd, c + 2), Cells(rc, c + 2)).Delete Shift:=xlToLeftEnd Sub==============