Bài viết tăng tốc dưới đây hướng dẫn chi tiết cách loại bỏ dấu tiếng việt trong Excel.
Có 2 cách chuyển đổi từ chữ tiếng việt có dấu sang không dấu theo 2 cách sau:
- Cách 1: Đơn giản nhất là sử dụng Unikey xóa tài khoản .
- Cách 2: Sử dụng VBA tự xây dựng hàm chuyển đổi.
Cách 1: Sử dụng Unikey chuyển đổi chữ tiếng việt có dấu sang không dấu
Ví dụ muốn chuyển cột họ tên có dấu thành không dấu.
Kiểm tra dữ liệu nguồn thuộc kiểu bảng mã nào giảm giá . Ở ví dụ này cột họ tên thuộc font chữ Time New Roman -> thuộc bảng mã Unicode.
Bước 1: Copy toàn bộ dữ liệu muốn chuyển thành không dấu.
Bước 2: Chuột phải vào biểu tượng Unikey góc bên phải phía dưới màn hình -> Chọn Công cụ…[CS + F6] ứng dụng hoặc nhấn tổ hợp phím Ctrl + Shift + F6.
Bước 3: Hộp thoại xuất hiện trong Bảng mã mục Nguồn nhập tên bảng mã nguồn quảng cáo của dữ liệu ở đây là Unicode ứng dụng , bảng mã đích nguyên nhân có thể chọn chính bảng mã nguồn hỗ trợ hoặc sang bảng mã khác theo yêu cầu kinh nghiệm của bạn chia sẻ . Di chuyển chuột sang phía bên phải tích chọn vào mục Loại bỏ dấu -> kích chọn Chuyển mã.
Bước 4: Sau khi chọn Chuyển mã hộp thoại thông báo chuyển mã thành công xuất hiện kích chọn OK tính năng để kết thúc.
Trường hợp danh sách nếu phần dữ liệu không hợp lý hộp thoại thông báo xuất hiện kích chọn OK download để chọn lại dữ liệu nguồn.
Quay trở lại bảng tính Excel chọn vị trí cần dán dữ liệu nhấn tổ hợp phím Ctrl + V -> kết quả toàn bộ chữ giá rẻ đã tổng hợp được loại bỏ dấu.
giá rẻ Trên đây là cách đơn giản download để loại bỏ dấu tiếng việt dịch vụ . Tuy nhiên tải về với cách này phiên bản thấp mới nhất của Unikey không hỗ trợ.
Cách 2: Sử dụng VBA
Bước 1: Nhấn tổ hợp phím Alt + F11 địa chỉ để mở cửa sổ VBA.
Bước 2: Vào thẻ Insert -> Module.
Bước 3: Copy đoạn mã sau vào 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 đăng ký vay , i tăng tốc , 1)
If sChar <> "" Then
intCode = AscW(sChar)
End If
Select Case intCode
Case 273
sConvert = sConvert & "d"
Case 272
sConvert = sConvert & "D"
Case 224 kinh nghiệm , 225 sử dụng , 226 lấy liền , 227 giá rẻ , 259 link down , 7841 tính năng , 7843 ở đâu uy tín , 7845 sử dụng , 7847 địa chỉ , 7849 kiểm tra , 7851 dịch vụ , 7853 dữ liệu , 7855 kích hoạt , 7857 hay nhất , 7859 ứng dụng , 7861 mật khẩu , 7863
sConvert = sConvert & "a"
Case 192 tải về , 193 lấy liền , 194 chia sẻ , 195 ứng dụng , 258 quản lý , 7840 full crack , 7842 ở đâu tốt , 7844 tối ưu , 7846 công cụ , 7848 dịch vụ , 7850 xóa tài khoản , 7852 tính năng , 7854 hướng dẫn , 7856 an toàn , 7858 địa chỉ , 7860 dữ liệu , 7862
sConvert = sConvert & "A"
Case 232 tải về , 233 tổng hợp , 234 trực tuyến , 7865 mới nhất , 7867 hay nhất , 7869 qua mạng , 7871 hỗ trợ , 7873 kiểm tra , 7875 chi tiết , 7877 danh sách , 7879
sConvert = sConvert & "e"
Case 200 như thế nào , 201 full crack , 202 dịch vụ , 7864 full crack , 7866 sử dụng , 7868 kinh nghiệm , 7870 khóa chặn , 7872 hay nhất , 7874 tốt nhất , 7876 tốt nhất , 7878
sConvert = sConvert & "E"
Case 236 lừa đảo , 237 nhanh nhất , 297 giả mạo , 7881 vô hiệu hóa , 7883
sConvert = sConvert & "i"
Case 204 tải về , 205 khóa chặn , 296 tính năng , 7880 khóa chặn , 7882
sConvert = sConvert & "I"
Case 242 sửa lỗi , 243 khóa chặn , 244 full crack , 245 tất toán , 417 kiểm tra , 7885 nguyên nhân , 7887 kiểm tra , 7889 công cụ , 7891 kinh nghiệm , 7893 ở đâu nhanh , 7895 phải làm sao , 7897 nơi nào , 7899 cài đặt , 7901 bản quyền , 7903 nạp tiền , 7905 tài khoản , 7907
sConvert = sConvert & "o"
Case 210 ứng dụng , 211 dữ liệu , 212 ở đâu uy tín , 213 cài đặt , 416 khóa chặn , 7884 nhanh nhất , 7886 tính năng , 7888 giá rẻ , 7890 chia sẻ , 7892 tổng hợp , 7894 giá rẻ , 7896 tự động , 7898 kiểm tra , 7900 download , 7902 tính năng , 7904 khóa chặn , 7906
sConvert = sConvert & "O"
Case 249 ở đâu tốt , 250 nguyên nhân , 361 giả mạo , 432 quảng cáo , 7909 mẹo vặt , 7911 trên điện thoại , 7913 sửa lỗi , 7915 nạp tiền , 7917 như thế nào , 7919 link down , 7921
sConvert = sConvert & "u"
Case 217 tăng tốc , 218 vô hiệu hóa , 360 giả mạo , 431 kiểm tra , 7908 miễn phí , 7910 nạp tiền , 7912 như thế nào , 7914 tài khoản , 7916 dữ liệu , 7918 nhanh nhất , 7920
sConvert = sConvert & "U"
Case 253 kỹ thuật , 7923 cài đặt , 7925 tất toán , 7927 nhanh nhất , 7929
sConvert = sConvert & "y"
Case 221 khóa chặn , 7922 nguyên nhân , 7924 lừa đảo , 7926 chia sẻ , 7928
sConvert = sConvert & "Y"
Case Else
sConvert = sConvert & sChar
End Select
Next
ConvertToUnSign = sConvert
End Function
Bước 4: Quay trở lại file Excel vào File -> Options.
Bước 5: Hộp thoại xuất hiện chọn mục Trust Center -> Trust Center Settings.
Bước 6: Trong mục Macro Settings sử dụng , phần Macro Settings chọn Enable all macros (not recommended; potentially dangerous code caption) mới nhất , phần Developer Macro Settings tích chọn mục Trust access to the VBA project object model.
Bước 7: dịch vụ Như vậy bạn sử dụng đã xây dựng xong hàm ConvertToUnSign() kỹ thuật . Quay trở lại bảng tính hay nhất , ví dụ muốn chuyển đổi dữ liệu ô D6 sang không dấu nhập công thức sau: =ConvertToUnSign(D6).
Bước 8: Nhấn Enter -> dữ liệu tốt nhất đã khóa chặn được chuyển sang không dấu: Tuy nhiên xây dựng hàm tốn nhiều thời gian tăng tốc và hiệu quả không cao khi bạn muốn chuyển đổi tự động với lượng dữ liệu lớn.
địa chỉ Trên đây là dịch vụ những cách cơ bản giúp bạn loại bỏ dấu tiếng việt trong Excel sử dụng .
Chúc chia sẻ các bạn thành công!
4.9/5 (80 votes)
