Tách cả số và chữ khỏi chuỗi chứa ký tự đặc biệt!

[lonelykitten119]

Thân chào mọi người!

Trước khi nhờ đến sự giúp đỡ của mọi người thì em chia sẻ rằng em đã tìm kiếm trên internet nhưng vẫn chưa ra được phương án giải quyết, nên em mới post lên đây với hy vọng sẽ được mọi người giúp đỡ ạ .

Em đã thử một số hàm, sử dụng cả VB nhưng vẫn không hiệu quả. Em muốn tìm một hàm có thể xóa bỏ mọi ký tự thường và đặc biệt, chỉ để lại đúng CHỮ CÁI và SỐ:

Ví dụ:

• Major Lazer , MØ , DJ Snake – Lean On.mp4
• Pitbull , ®Kes$ha – Timber.mp4

=> Sẽ chỉ còn MajorLazer,M,DJSnakeLeanOn.mp4 / PitbullKeshaTimber.mp4.

Rất mong được mọi người chỉ giáo giúp đỡ. Em cảm ơn cả nhà nhiều ạ

 

[HungQuoc49]

Thân chào mọi người!

Trước khi nhờ đến sự giúp đỡ của mọi người thì em chia sẻ rằng em đã tìm kiếm trên internet nhưng vẫn chưa ra được phương án giải quyết, nên em mới post lên đây với hy vọng sẽ được mọi người giúp đỡ ạ .

Em đã thử một số hàm, sử dụng cả VB nhưng vẫn không hiệu quả. Em muốn tìm một hàm có thể xóa bỏ mọi ký tự thường và đặc biệt, chỉ để lại đúng CHỮ CÁI và SỐ:

Ví dụ:

• Major Lazer , MØ , DJ Snake – Lean On.mp4
• Pitbull , ®Kes$ha – Timber.mp4

=> Sẽ chỉ còn MajorLazer,M,DJSnakeLeanOn.mp4 / KeshaTimber.mp4.

Rất mong được mọi người chỉ giáo giúp đỡ. Em cảm ơn cả nhà nhiều ạ

Pitbull của câu 2 là để lại hay xóa?

 

[befaint]

Thân chào mọi người!
Trước khi nhờ đến sự giúp đỡ của mọi người thì em chia sẻ rằng em đã tìm kiếm trên internet nhưng vẫn chưa ra được phương án giải quyết, nên em mới post lên đây với hy vọng sẽ được mọi người giúp đỡ ạ .
Em đã thử một số hàm, sử dụng cả VB nhưng vẫn không hiệu quả. Em muốn tìm một hàm có thể xóa bỏ mọi ký tự thường và đặc biệt, chỉ để lại đúng CHỮ CÁI và SỐ:
Ví dụ:

• Major Lazer , MØ , DJ Snake – Lean On.mp4
• Pitbull , ®Kes$ha – Timber.mp4

=> Sẽ chỉ còn MajorLazer,M,DJSnakeLeanOn.mp4 / KeshaTimber.mp4.
Rất mong được mọi người chỉ giáo giúp đỡ. Em cảm ơn cả nhà nhiều ạ

Bạn thử file đính kèm.
Tải và cài đặt AddIns.
Giả sử chuỗi ở cell A1. Công thức tại B2: =Tchuso(A1)

 

[lonelykitten119]

Để lại bạn ơi. Tức là ngoài chữ cái trong bảng Alphabet và số 0-9 ra thì xóa hết tất cả ký tự còn lại ấy ạ

 

[lonelykitten119]

Pitbull của câu 2 là để lại hay xóa?

Để lại bạn ơi. Tức là ngoài chữ cái trong bảng Alphabet và số 0-9 ra thì xóa hết tất cả ký tự còn lại ấy ạ

 

[lonelykitten119]

Bạn thử file đính kèm.
Tải và cài đặt AddIns.
Giả sử chuỗi ở cell A1. Công thức tại B2: =Tchuso(A1)

Cảm ơn bạn nhé mình sẽ thử ạ

 

[ndu96081631]

Thân chào mọi người!

Trước khi nhờ đến sự giúp đỡ của mọi người thì em chia sẻ rằng em đã tìm kiếm trên internet nhưng vẫn chưa ra được phương án giải quyết, nên em mới post lên đây với hy vọng sẽ được mọi người giúp đỡ ạ .

Em đã thử một số hàm, sử dụng cả VB nhưng vẫn không hiệu quả. Em muốn tìm một hàm có thể xóa bỏ mọi ký tự thường và đặc biệt, chỉ để lại đúng CHỮ CÁI và SỐ:

Ví dụ:

• Major Lazer , MØ , DJ Snake – Lean On.mp4
• Pitbull , ®Kes$ha – Timber.mp4

=> Sẽ chỉ còn MajorLazer,M,DJSnakeLeanOn.mp4 / PitbullKeshaTimber.mp4.

Rất mong được mọi người chỉ giáo giúp đỡ. Em cảm ơn cả nhà nhiều ạ

Làm thử thê này xem sao:

Function ExtractNT(ByVal Text As String) As String
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = "[^a-zA-Z0-9.,]"
    ExtractNT = .Replace(Text, "")
  End With
End Function

 

[lonelykitten119]

Làm thử thê này xem sao:

Function ExtractNT(ByVal Text As String) As String
  With CreateObject("VBScript.RegExp")
    .Global = True: .Pattern = "[^a-zA-Z0-9.,]"
    ExtractNT = .Replace(Text, "")
  End With
End Function

Hay quá bạn ơi mình test ok rồi . Có thể edit lại giữ dấu ngoặc vuông [] và xóa dấu phẩy không bạn? Mình cảm ơn bạn nhiều lắm ^^

 

[Phạm Ánh Dương]

Bạn thử file đính kèm.
Tải và cài đặt AddIns.
Giả sử chuỗi ở cell A1. Công thức tại B2: =Tchuso(A1)

Bài đã được tự động gộp: 15/3/19

Sao mình không mở được file của bạn nhỉ?