[Hỏi] Tìm kiếm Loại bỏ kí tự đặc biêt

[htdang]

Chào các bạn,

Mình có 1 file data mở bằng Excel, trong cột Tiêu đề khoảng 100k dòng có rất nhiều kí tự đặc biệt nên không thể dùng Ctrl+H để thay thế hết được.

VD:
Hoc tieng anh¢ truc %tuyen 24/24, 7/7 => Hoc Tieng anh truc tuyen 24 24 7 7
Luyen® thi (dai hoc) cap toc™! => Luyen thi dai hoc cap toc

Mình muốn tạo 1 hàm nếu không phải là chữ cái La tinh, khoảng trắng và các số thì Delete hết.

Nhờ các bạn giúp đỡ.

Chân thành cám ơn

 

[Hai Lúa Miền Tây]

Dùng thử hàm sau:

Function ChuyenDoi(ByVal txt As String) As String
With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "[/:\*\?\[\]\,\!\@\#\$\%\^\&\*\(\)\¢\®\™\+\-\_\=\{\}\<\>]"
    ChuyenDoi = .Replace(txt, " ")
End With

End Function

 

[hungpecc1]

Chào các bạn,

Mình có 1 file data mở bằng Excel, trong cột Tiêu đề khoảng 100k dòng có rất nhiều kí tự đặc biệt nên không thể dùng Ctrl+H để thay thế hết được.

VD:
Hoc tieng anh¢ truc %tuyen 24/24, 7/7 => Hoc Tieng anh truc tuyen 24 24 7 7
Luyen® thi (dai hoc) cap toc™! => Luyen thi dai hoc cap toc

Mình muốn tạo 1 hàm nếu không phải là chữ cái La tinh, khoảng trắng và các số thì Delete hết.

Nhờ các bạn giúp đỡ.

Chân thành cám ơn

thử hàm này xem như thế nao :

Public Function GPE(str$) As String
    With CreateObject("VBscript.Regexp")
        .Global = True: .IgnoreCase = True
        .Pattern = "[^a-z0-9\s]+"
        GPE = .Replace(str, " ")
    End With
End Function
'===================================================================
Sub test()
    MsgBox GPE("Hoc tieng anh¢ truc %tuyen 24/24, 7/7")
    MsgBox GPE("Luyen® thi (dai hoc) cap toc™! ")
End Sub

 

[htdang]

thử hàm này xem như thế nao :

Public Function GPE(str$) As String
    With CreateObject("VBscript.Regexp")
        .Global = True: .IgnoreCase = True
        .Pattern = "[^a-z0-9\s]+"
        GPE = .Replace(str, " ")
    End With
End Function
'===================================================================
Sub test()
    MsgBox GPE("Hoc tieng anh¢ truc %tuyen 24/24, 7/7")
    MsgBox GPE("Luyen® thi (dai hoc) cap toc™! ")
End Sub

Cám ơn bạn hàm này chuẩn