Tách Số, chữ, và 4 ký tự .-_()[] khỏi chuỗi ký tự đặc biệt

[followourdreams]

Chào các cao nhân ạ!

Em đang cần tìm vb có thể lấy mỗi số 0-9, chữ cái A-Z, và các ký tự chấm. gạch ngang - gạch dưới _ ngoặc vuông [] ngoặc tròn () khỏi chuỗi ký tự đặc biệt. Ngoài bảng chữ cái, số và những ký tự trên thì xóa bỏ hết toàn bộ ký tự còn lại.

Ví dụ: (Linh)/\:*?"<>|[Nam]Ø208 => (Linh)[Nam]208

Hy vọng được các cao nhân giúp đỡ. Em cảm ơn rất nhiều ạ

 

[befaint]

Chào các cao nhân ạ!

Em đang cần tìm vb có thể lấy mỗi số 0-9, chữ cái A-Z, và các ký tự chấm. gạch ngang - gạch dưới _ ngoặc vuông [] ngoặc tròn () khỏi chuỗi ký tự đặc biệt. Ngoài bảng chữ cái, số và những ký tự trên thì xóa bỏ hết toàn bộ ký tự còn lại.

Ví dụ: (Linh)/\:*?"<>|[Nam]Ø208 => (Linh)[Nam]208

Hy vọng được các cao nhân giúp đỡ. Em cảm ơn rất nhiều ạ

Bạn thử addins sau. Tải về và cài đặt.

Giả sử A1=chuỗi cần tách.
Công thức ở bảng tính: =Tchuso(A1)

 

[followourdreams]

Bạn thử addins sau. Tải về và cài đặt.

Giả sử A1=chuỗi cần tách.
Công thức ở bảng tính: =Tchuso(A1)

Em cảm ơn rất nhiều ạ. Em vừa test nhưng các dấu ký tự chấm. gạch ngang - gạch dưới _ ngoặc vuông [] ngoặc tròn () lại bị xóa mất ạ.

Hy vọng được các cao nhân edit giúp

 

[befaint]

Em cảm ơn rất nhiều ạ. Em vừa test nhưng các dấu ký tự chấm. gạch ngang - gạch dưới _ ngoặc vuông [] ngoặc tròn () lại bị xóa mất ạ.

Hy vọng được các cao nhân edit giúp

Bạn có dùng addins nào "lạ" khác không?

 

[Ba Tê]

Chào các cao nhân ạ!

Em đang cần tìm vb có thể lấy mỗi số 0-9, chữ cái A-Z, và các ký tự chấm. gạch ngang - gạch dưới _ ngoặc vuông [] ngoặc tròn () khỏi chuỗi ký tự đặc biệt. Ngoài bảng chữ cái, số và những ký tự trên thì xóa bỏ hết toàn bộ ký tự còn lại.

Ví dụ: (Linh)/\:*?"<>|[Nam]Ø208 => (Linh)[Nam]208

Hy vọng được các cao nhân giúp đỡ. Em cảm ơn rất nhiều ạ

Bạn chép cái này vô Module

Public Function GPE(Txt As String) As String
    With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "[^0-9a-zA-Z()._\[\]\-]"
        GPE = .Replace(Txt, "")
    End With
End Function

B1=GPE(A1)

 

[followourdreams]

Bạn có dùng addins nào "lạ" khác không?

View attachment 169502

Ui em quên chưa xóa cái add in cũ. Ngon lành rồi ạ. Em cảm ơn anh nhiều nhiều lắm chúc anh tất cả ạ

 

[followourdreams]

Bạn chép cái này vô Module

Public Function GPE(Txt As String) As String
    With CreateObject("VBScript.RegExp")
            .Global = True
            .Pattern = "[^0-9a-zA-Z()._\[\]\-]"
        GPE = .Replace(Txt, "")
    End With
End Function

B1=GPE(A1)

Cảm ơn mọi người rất nhiều đã giúp đỡ ạ. 2 lệnh đều ngon lành hihi

 

[followourdreams]

Có cách nào cho các chữ vẫn cách nhau ra không mọi người nhỉ. Giữ lại dấu cách ấy ạ.

Ví dụ: Nam:* [Nam]Ø208 => (Linh) [Nam]208

 

[befaint]

Có cách nào cho các chữ vẫn cách nhau ra không mọi người nhỉ. Giữ lại dấu cách ấy ạ.

.......................