Xin giúp đỡ cách Tìm kiếm Thay thế ký tự Unicode trong Macro của Excel (1 người xem)

[duc2281977]

Tôi muốn tìm các ký tự tiếng Việt để đổi thành các ký tự đại diện khác phục vụ cho việc sắp xếp tiếng Việt. Đoạn mã như sau:

Selection.Replace What:="À", Replacement:="Az1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="à", Replacement:="Az1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ChrW(7842)", Replacement:="Az2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ChrW(7843)", Replacement:="Az2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Á", Replacement:="Az3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="á", Replacement:="Az3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
....

=> Tuy nhiên khi chạy Macro thì rất nhiều ký tự không được thay thế. Mong các anh chị giúp đỡ.
Trân trọng cảm ơn!!

 

[duc2281977]

Tôi muốn tìm các ký tự tiếng Việt để đổi thành các ký tự đại diện khác phục vụ cho việc sắp xếp tiếng Việt. Đoạn mã như sau:

Selection.Replace What:="À", Replacement:="Az1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="à", Replacement:="Az1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ChrW(7842)", Replacement:="Az2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ChrW(7843)", Replacement:="Az2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Á", Replacement:="Az3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="á", Replacement:="Az3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
....

=> Tuy nhiên khi chạy Macro thì rất nhiều ký tự không được thay thế. Mong các anh chị giúp đỡ.
Trân trọng cảm ơn!!

Tôi muốn tìm các ký tự tiếng Việt để đổi thành các ký tự đại diện khác phục vụ cho việc sắp xếp tiếng Việt. Đoạn mã như sau:

Selection.Replace What:="À", Replacement:="Az1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="à", Replacement:="Az1", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ChrW(7842)", Replacement:="Az2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="ChrW(7843)", Replacement:="Az2", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="Á", Replacement:="Az3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="á", Replacement:="Az3", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
....

=> Tuy nhiên khi chạy Macro thì rất nhiều ký tự không được thay thế. Mong các anh chị giúp đỡ.
Trân trọng cảm ơn!!

Tôi đã làm được. Xin Admin xóa giúp bài