Thay thế các ký tự có dấu bằng các ký tự thông thường bằng VBA

Thay thế các ký tự có dấu bằng các ký tự thông thường bằng Kutools cho Excel

Đối với người dùng đã có kinh nghiệm với Microsoft Excel, sử dụng macro VBA là một cách dễ dàng để giải quyết công việc phức tạp này.

1. Giữ phím tắt Khác + F11 các phím trong Excel và nó sẽ mở Cửa sổ Microsoft Visual Basic for Applications.

2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Cửa sổ mô-đun.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Sau đó, chuyển đến một ô trống và dán công thức vào một ô: = CheckStringCHAR (Chuỗi trong), Ví dụ = CheckStringCHAR ("ù"), hoặc là = CheckStringCHAR (A2).

Ghi chú:
(1) Microsoft Visual Basic của bạn có thể không nhận ra các ký tự có dấu, nếu nó không hỗ trợ Unicode. Ví dụ: khi bạn dán "š" trong Visual Basic, bạn có thể nhận được "?". Nếu vậy, macro này không khả dụng.
(2) Nó không thay thế trực tiếp các ký tự có dấu trong các chuỗi của ô đã chọn.

Nó đòi hỏi quá nhiều kỹ năng và kiến ​​thức để sử dụng macro VBA. Và phương pháp sau đây sẽ giúp bạn làm việc dễ dàng hơn chỉ với một số cú nhấp chuột. Công cụ thay thế ký tự có dấu của Kutools cho Excel giúp bạn có thể thay thế tất cả các loại ký tự có dấu bằng ký tự thông thường một cách dễ dàng cùng một lúc.

1. Chọn phạm vi mà bạn sẽ thay thế tất cả các ký tự có dấu.

2. Nhấp chuột Kutools > bản văn > Thay thế các ký tự có dấu…, Xem ảnh chụp màn hình:

3. In Thay thế các ký tự có dấu hộp thoại, nhấp vào Chọn tất cả để chọn tất cả các quy tắc thay thế và nhấp vào nút Ok để thay thế tất cả các ký tự có dấu. xem ảnh chụp màn hình:

Chú ý:
(1) Nếu không có một số ký tự có dấu cụ thể mà bạn muốn, bạn có thể nhấp vào Thêm quy tắc để thêm quy tắc của riêng bạn vào hộp danh sách trong hộp thoại Thay thế ký tự có dấu ở trên.
(2) Bạn có thể tùy chỉnh các quy tắc thay thế mới trong hộp thoại Thay thế các ký tự có dấu.

Bây giờ bạn sẽ có tất cả các ký tự có dấu trong chuỗi của phạm vi đã chọn được chuyển đổi thành ký tự thông thường ngay lập tức. Xem ảnh chụp màn hình:

Mô hình Thay thế các ký tự có dấu tính năng của Kutools cho Excel có thể dễ dàng thay thế tất cả các loại ký tự có dấu bằng các ký tự thông thường trong toàn bộ sổ làm việc. Có một bản dùng thử miễn phí!