Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Khi nhập liệu vào bảng tính Excel, thông thường ta nhập cả họ và tên vào cùng một ô. Tuy nhiên, có khi sau đó ta cần phải tách riêng tên ra khỏi họ và tên đệm, nếu làm thủ công bằng thao tác sao chép rồi dán qua ô khác thì sẽ rất bất tiện. Ngoài ra có những lúc bạn phải xắp xếp lại theo thứ tự A,B,C,. | Các phương pháp tách họ và tên Khi nhập liệu vào bảng tính Excel thông thường ta nhập cả họ và tên vào cùng một ô. Tuy nhiên có khi sau đó ta cần phải tách riêng tên ra khỏi họ và tên đệm nếu làm thủ công bằng thao tác sao chép rồi dán qua ô khác thì sẽ rất bất tiện. Ngoài ra có những lúc bạn phải xắp xếp lại theo thứ tự A B C . Nếu sử dụng hàm Right kết hợp với một vài hàm khác thì cũng có thể cho ra kết quả như bạn muốn nhưng trong một số trường hợp sẽ cho kết quả không chính xác. Có một phương pháp tối ưu hơn sẽ giúp bạn hoàn thành tốt công việc này cách thực hiện cũng khá đơn giản như sau - Trên bảng tính chứa cột họ tên cần tách bạn chọn menu Tools Macro Visual Basic Editor lập tức xuất hiện chương trình Microsoft Visual Basic. - Tiếp theo bạn nhấn menu Insert và chọn Module sẽ xuất hiện một cửa sổ soạn thảo. Code Private Function Tachten ten As String 1g 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 Bạn nhập đoạn mã lệnh sau vào cửa sô soạn thảo - Bạn nhấn Ctrl S để lưu lại và quay trở về bảng tính Excel. - Bây giờ để tiến hành tách riêng họ và tên đệm vào một ô mới bạn đặt con trỏ tại ô mới chứa họ và tên đệm rồi nhập vào công thức TachTen B3 0 và nhấn Enter sẽ thấy ngay kết quả. - Để tách riêng tên vào một ô mới bạn đặt con trỏ tại ô sẽ chứa tên cần tách và nhập vào công thức TachTen B3 1 rồi nhấn Enter là xong. Ghi chú B3 chính là địa chỉ của ô ban đầu chứa cả họ tên đệm và tên. SiNguyên văn bởi NguyenNgocSon Q bạn xem thử code nhé HTML Code Function CatTen HoVaTen As String As String Dim l i As Integer HoVaTen Trim HoVaTen l Len HoVaTen CatTen
