Thủ thuật Excel: Tách tên ra khỏi họ và tên đệm

Thủ thuật Excel: Tách tên ra khỏi họ và tên đệm 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ọ Hình minh họa: Thủ thuật Excel: Tách tên ra khỏi họ và tên đệm 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. 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...
Nội dung trích xuất từ tài liệu:
Thủ thuật Excel: Tách tên ra khỏi họ và tên đệmThủ thuật Excel: Tách tên ra khỏi họ và tên đệm 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ọ Hình minh họa: và tên đệm, nếu làm thủ công Thủ thuật Excel: bằng thao tác sao chép rồi dánTách tên ra khỏi họ qua ô khác thì sẽ rất bất tiện. và tên đệm 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ưngtrong một số trường hợp sẽ cho kết quả không chínhxác. Có một phương pháp tối ưu hơn sẽ giúp bạnhoàn thành tốt công việc này, cách thực hiện cũngkhá đơ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ứcxuấ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. Bạn nhập đoạn mã lệnh sau vào cửa sổ soạn thảo:-Code:________________________________________Private Function Tachten(ten As String, lg AsInteger)Dim j As IntegerName = Trim(ten)For j = Len(Name) To 1 Step -1If Mid(Name, j, 1) = ThenIf lg = 1 ThenTachten = Right(Name, Len(Name) - j)ElseTachten = Left(Name, j)End IfExit ForEnd IfNextEnd Function________________________________________ 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ấnEnter 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ú: B3chính là địa chỉ của ô ban đầu chứa cả họ, tên đệm vàtên. Để nhập họ và tên lại như cũ: đơn giản bạn chỉ-cần sử dụng toán tử & để kết hợp chuỗi. Chúc bạn thành công.-