Dùng hàm Substitute để thay thế mẫu tự trong chuỗi.

[OverAC]

Có một bạn đăng trên Facebook GPE hỏi

Hi mọi người,

Tình hình là em có 1 cột có nhiều chuỗi bị lỗi bảng mã (do dung lisp copy từ AutoCAD sang Excel), một số ký tự tiếng Việt có dấu thì bị thay đổi thành dạng mã hết. Hình 2 là mã và ký tự tiếng Việt đúng cần thay thế.

Hiện tại thì em đang dùng lệnh Ctrl+H để tìm và thay thế từng chữ cái một, như vậy thì rất lâu. Vậy cho em hỏi là có cách nào để làm nhanh hơn không, em có thử record 1 đoạn VBA nhưng trong đó thì không viết có dấu được, nên cũng k biết chỉnh thế nào

Mong được cao nhân giúp đỡ ạ ^^

 

[OverAC]

Mình có file làm việc tương tự như vậy, hi vọng có thể giúp bạn.

 

[AutoReply]

Mình có file làm việc tương tự như vậy, hi vọng có thể giúp bạn.

file này sử dụng sao vậy bạn. Mình loay hoay mãi mà chưa biết cách sử dụng.

 

[Gà Công Nghệ]

file này sử dụng sao vậy bạn. Mình loay hoay mãi mà chưa biết cách sử dụng.

Mình cũng như bạn, chưa hiểu File này dùng như thế nào? và dùng về mục đích gì.

 

[AutoReply]

Theo như những gì tôi thấy trong hình thì tôi viết 1 hàm VBA để chuyển đoạn mã thành câu tiếng Việt.

Public Function hello(ByVal iText As String)
Static regec As Object, domDoc As Object
If regec Is Nothing Then
    Set regec = CreateObject("VBScript.RegExp")
    regec.Global = True
    Set domDoc = CreateObject("Msxml2.DOMDocument")
End If
regec.Pattern = "\\U\+[A-F0-9]{4}"
iText = regec.Replace(iText, "$&;")
regec.Pattern = "\\U\+(?=[A-F0-9]{4};)"
iText = regec.Replace(iText, "&#x")
domDoc.LoadXML "<root>" & iText & "</root>"
hello = domDoc.Text
End Function