CÀI ĐẶT PHẦN MỀM Thư viện những phần mềm hữu ích
Excel chưa có hàm hỗ trợ loại bỏ dấu tiếng việt trong chuỗi văn bản. Tuy nhiên, nếu bạn cần phải loại bỏ dấu tiếng việt thì có thể làm theo cách mà Thủ Thuật Tin Học giới thiệu cho bạn trong bài viết thế này nhé.
Sử dụng công cụ chuyển đổi mã của Unikey
Ví dụ bạn có bảng Họ Và Tên cần bỏ dấu tiếng việt như sau:
Bước 1: Chọn (bôi đen) vùng dữ liệu cần bỏ dấu trong Excel => Nhấn tổ hợp phím Ctrl + C.
Bước 2: Nhấn chuột phải vào biểu tượng của UniKey (1) ở góc phải màn hình máy tính của bạn => Chọn mục Công cụ…[CS + F6] (2).
Hoặc nhấn tổ hợp phím Ctrl + Shift + F6.
Bước 3: Cửa sổ UniKey Toolkit hiện ra.
(1) Chọn bảng mã nguồn và đích: Ở ví dụ trên, Thủ Thuật Tin Học dùng Font chữ Time new roman tương đương với bảng mã Unicode.
(2) Lựa chọn: Bạn chọn yêu cầu là Loại bỏ dấu.
(3) Tích chọn Chuyển mã Clipboard.
(4) Nhấn Chuyển mã.
Bước 4: Sau khi nhấn chuyển mã, UniKey sẽ xuất hiện một cửa sổ thông báo đã hoàn thành việc loại bỏ dấu. Bạn chọn OK. Rồi đóng cửa sổ UniKey Toolkit.
Bước 5: Bạn mở bảng tính Excel, chọn vùng muốn trả kết quả sau khi loại bỏ dấu rồi nhấn tổ hợp phím Ctrl + V.
Sử dụng mã VB
Nếu như bạn đã biết cách chạy một Macro trong Excel, bạn có thể sử dụng đoạn mã Code bên dưới để loại bỏ dấu trong Excel.
Bước 1: Mở cửa sổ VBA bằng cách ấn Alt + F11.
Bước 2: Thêm Module cho file Excel của bạn bằng cách chọn thẻ Insert (1) => nhấn vào biểu tượng Module (2).
Bước 3: Copy /sao chép đoạn mã dưới vào trong Module.
Function ConvertToUnSign(ByVal sContent As String) As String Dim i As Long Dim intCode As Long Dim sChar As String Dim sConvert As String ConvertToUnSign = AscW(sContent) For i = 1 To Len(sContent) sChar = Mid(sContent, i, 1) If sChar <> “” Then intCode = AscW(sChar) End If Select Case intCode Case 273 sConvert = sConvert & “d” Case 272 sConvert = sConvert & “D” Case 224, 225, 226, 227, 259, 7841, 7843, 7845, 7847, 7849, 7851, 7853, 7855, 7857, 7859, 7861, 7863 sConvert = sConvert & “a” Case 192, 193, 194, 195, 258, 7840, 7842, 7844, 7846, 7848, 7850, 7852, 7854, 7856, 7858, 7860, 7862 sConvert = sConvert & “A” Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879 sConvert = sConvert & “e” Case 200, 201, 202, 7864, 7866, 7868, 7870, 7872, 7874, 7876, 7878 sConvert = sConvert & “E” Case 236, 237, 297, 7881, 7883 sConvert = sConvert & “i” Case 204, 205, 296, 7880, 7882 sConvert = sConvert & “I” Case 242, 243, 244, 245, 417, 7885, 7887, 7889, 7891, 7893, 7895, 7897, 7899, 7901, 7903, 7905, 7907 sConvert = sConvert & “o” Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906 sConvert = sConvert & “O” Case 249, 250, 361, 432, 7909, 7911, 7913, 7915, 7917, 7919, 7921 sConvert = sConvert & “u” Case 217, 218, 360, 431, 7908, 7910, 7912, 7914, 7916, 7918, 7920 sConvert = sConvert & “U” Case 253, 7923, 7925, 7927, 7929 sConvert = sConvert & “y” Case 221, 7922, 7924, 7926, 7928 sConvert = sConvert & “Y” Case Else sConvert = sConvert & sChar End Select Next ConvertToUnSign = sConvert End Function
Bước 4: Tắt / ẩn cửa sổ VBA quay trở lại Excel.
Bạn gõ công thức C2=ConvertToUnSign(A2) và sao chép cho toàn bộ ô ở cột C. Kết quả thu được sẽ là:
Trên đây Thủ Thuật Tin Học đã hướng dẫn bạn hai cách để loại bỏ dấu trong Excel. Chúc các bạn thành công!