Các bước thực hiện hàm loại bỏ dấu trong Excel

13/4/2023

1955

Các bước thực hiện hàm loại bỏ dấu trong Excel

Các bước thực hiện hàm loại bỏ dấu tiếng Việt trong Excel

Trong quá trình làm việc, nhất là đối với dân văn phòng phải thường xuyên sử dụng Excel. Chắc chắn cũng sẽ một lần bị yêu cầu sử dụng bỏ dấu tiếng Việt. Vậy để thực hiện hàm loại bỏ dấu nào cho hiệu quả và nhanh chóng? Cùng chúng tôi tìm hiểu qua bài viết chia sẻ sau đây.

Những cách sử dụng hàm loại bỏ dấu trong excel giúp bạn tiết kiệm thời gian và hoàn thành công việc một cách nhanh chóng, và hiệu quả. Đặc biệt hơn đó là với danh sách quá nhiều dữ liệu, việc sử dụng hàm bỏ dấu sẽ auto nhanh chóng so với gõ thủ công mất nhiều thời gian. Cùng xem các bước chi tiết dưới đây.

1. Sử dụng công cụ chuyển đổi mã bằng unikey

Cac buoc thuc hien ham loai bo dau trong Excel

Cac buoc thuc hien ham loai bo dau trong Excel : Chia se cac kinh nghiem xu ly trong doi song thuong ngay cung nhu trong cong viec

Cac buoc thuc hien ham loai bo dau trong Excel

Cac buoc thuc hien ham loai bo dau tieng Viet trong Excel

Trong qua trinh lam viec, nhat la doi voi dan van phong phai thuong xuyen su dung Excel. Chac chan cung se mot lan bi yeu cau su dung bo dau tieng Viet. Vay de thuc hien ham loai bo dau nao cho hieu qua va nhanh chong? Cung chung toi tim hieu qua bai viet chia se sau day.

Nhung cach su dung ham loai bo dau trong excel giup ban tiet kiem thoi gian va hoan thanh cong viec mot cach nhanh chong, va hieu qua. Dac biet hon do la voi danh sach qua nhieu du lieu, viec su dung ham bo dau se auto nhanh chong so voi go thu cong mat nhieu thoi gian. Cung xem cac buoc chi tiet duoi day.

1. Su dung cong cu chuyen doi ma bang unikey

Các bước thực hiện hàm loại bỏ dấu trong Excel

By Meovat360

Các bước thực hiện hàm loại bỏ dấu trong Excel : Chia sẻ các kinh nghiệm xử lý trong đời sống thường ngày cũng như trong công việc

Các bài liên quan

Phần mềm miễn phí giúp diệt gọn virus “cứng đầu”

Các bước thực hiện hàm loại bỏ dấu trong Excel

Các bước thực hiện hàm loại bỏ dấu trong Excel

Các bước thực hiện hàm loại bỏ dấu tiếng Việt trong Excel

1. Sử dụng công cụ chuyển đổi mã bằng unikey

2. Sử dụng hàm loại bỏ dấu bằng chuỗi mã VB

“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”

Cac buoc thuc hien ham loai bo dau trong Excel

Cac buoc thuc hien ham loai bo dau trong Excel : Chia se cac kinh nghiem xu ly trong doi song thuong ngay cung nhu trong cong viec

Cac buoc thuc hien ham loai bo dau tieng Viet trong Excel

1. Su dung cong cu chuyen doi ma bang unikey

2. Su dung ham loai bo dau bang chuoi ma VB

“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"

`“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”`

`“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"`