Hàm Chuyển Chữ Có Dấu Thành Không Dấu Trong Excel

Bài viết dưới đây hướng dẫn chi tiết giải pháp thải trừ vệt tiếng việt vào Excel.

Có 2 biện pháp biến hóa từ chữ tiếng việt bao gồm vệt sang ko vệt theo 2 giải pháp sau:

Cách 1: Đơn giản nhất là sử dụng Unikey.

Cách 2: Sử dụng VBA từ bỏ chế tạo hàm đổi khác.

Cách 1: Sử dụng Unikey biến hóa chữ giờ việt bao gồm vệt sang không dấu

ví dụ như muốn đưa cột bọn họ thương hiệu gồm vệt thành không dấu.

*

Kiểm tra dữ liệu nguồn thuộc đẳng cấp bảng mã như thế nào. Ở ví dụ này cột họ tên thuộc phông chữ Time New Roman -> nằm trong bảng mã Unicode.

*

Bước 1: Copy tổng thể dữ liệu ý muốn chuyển thành ko dấu.

*

Bước 2: Chuột bắt buộc vào biểu tượng Unikey góc bên bắt buộc phía dưới screen -> Chọn Công cụ… hoặc dìm tổ hợp phím Ctrl + Shift + F6.

*

Bước 3: Hộp thoại lộ diện vào Bảng mã mục Nguồn nhập thương hiệu bảng mã nguồn của tài liệu ở đấy là Unicode, bảng mã đích hoàn toàn có thể chọn thiết yếu bảng mã nguồn hoặc thanh lịch bảng mã không giống theo thử dùng của người tiêu dùng. Di chuyển chuột quý phái phía bên đề xuất tích lựa chọn vào mục Loại vứt dấu -> kích lựa chọn Chuyển mã.

*

Cách 4: Sau Lúc lựa chọn Chuyển mã hộp thoại thông báo gửi mã thành công xuất hiện kích lựa chọn OK để chấm dứt.

*

Trường phù hợp nếu như phần dữ liệu ko hợp lý và phải chăng vỏ hộp thoại thông báo xuất hiện kích chọn OK nhằm chọn lại tài liệu mối cung cấp.

Bạn đang xem: Hàm chuyển chữ có dấu thành không dấu trong excel

*

Quay trở về bảng tính Excel lựa chọn địa điểm đề nghị dán tài liệu dìm tổ hợp phím Ctrl + V -> công dụng toàn bộ chữ đã được sa thải vết.

*

Trên đó là bí quyết đơn giản và dễ dàng nhằm sa thải lốt giờ đồng hồ việt. Tuy nhiên với cách này phiên phiên bản tốt của Unikey ko cung cấp.

Cách 2: Sử dụng VBA

Bước 1: Nhấn tổng hợp phím Alt + F11 để mở cửa sổ VBA.

*

Cách 2: Vào thẻ Insert -> Module.

Xem thêm: Hàm Tính Trung Bình Có Điều Kiện Trong Excel, Averageif (Hàm Averageif)

*

Bước 3: Copy đoạn mã sau vào Module.

Function ConvertToUnSign(ByVal sContent As String) As String Dlặng i As Long Dlặng intCode As Long Dim sChar As String Dyên 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 và "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 và "A" Case 232, 233, 234, 7865, 7867, 7869, 7871, 7873, 7875, 7877, 7879 sConvert = sConvert và "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 và "o" Case 210, 211, 212, 213, 416, 7884, 7886, 7888, 7890, 7892, 7894, 7896, 7898, 7900, 7902, 7904, 7906 sConvert = sConvert và "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

*

Cách 4: Quay quay trở về file Excel vào File -> Options.

*

Bước 5: Hộp thoại lộ diện chọn mục Trust Center -> Trust Center Settings.

*

Cách 6: Trong mục Macro Settings, phần Macro Settings lựa chọn Enable all macros (not recommended; potentially dangerous code caption), phần Developer Macro Settings tích chọn mục Trust access lớn the VBA project object model.

*

Bước 7: do vậy chúng ta sẽ xuất bản dứt hàm ConvertToUnSign(). Quay quay lại bảng tính, ví dụ ý muốn biến đổi tài liệu ô D6 quý phái không dấu nhập công thức sau: =ConvertToUnSign(D6).

*

Bước 8: Nhấn Enter -> tài liệu đã có đưa quý phái ko dấu: Tuy nhiên thành lập hàm tốn nhiều thời gian cùng tác dụng không tốt Lúc bạn muốn thay đổi với lượng tài liệu phệ.