tailieunhanh - 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 String hoten = Trim(hoten) If hoten = "" Then TachHo = "" Else vt = InStrRev(hoten, " ", Len(hoten)) If vt = 0 Then TachHo = "" Else TachHo = Trim(Mid(hoten, 1, vt)) End If End If End Function '==================== Function TachTen(hoten As String) As String hoten = Trim(hoten) If hoten = "" Then TachTen = "" Else vt = InStrRev(hoten, " ", Len(hoten)) If vt = 0 Then TachTen = hoten Else TachTen = Mid(hoten,. | 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 String hoten Trim hoten If hoten Then TachHo Else vt InStrRev hoten Len hoten If vt 0 Then TachHo Else TachHo Trim Mid hoten 1 vt End If End If End Function Function TachTen hoten As String As String hoten Trim hoten If hoten Then TachTen Else vt InStrRev hoten Len hoten If vt 0 Then TachTen hoten Else TachTen Mid hoten vt 1 End If End If End 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ạn cầ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ác sau 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ên 3. 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