Xóa toàn bộ các chữ cái (và các nguyên âm, phụ âm)

[batman1]

Mấy người bạn bác có khi nào nhắc đến loại gà ba đùi hôn? Loại này nó Xà Rông thay vì Thả Rông. (cũng là she nhưng mà là shemale)

Đang ăn sáng mà đọc bài của của bác hết muốn ăn nữa. Ọe ọe

 

[vandia]

Đang ăn sáng mà đọc bài của của bác hết muốn ăn nữa. Ọe ọe

Có gì không phải bạn @batman1 bỏ quá cho nhé

 

[CHAOQUAY]

Nhân tiện các bác giúp tôi và mọi người loại số
rất nhiệt tình cảm ơn các bạn

Chữ "pha" cũng bị loại?

 

[vandia]

Chữ "pha" cũng bị loại?

Mình bị nhầm bạn
CHAOQUAY
xem lại giúp (Nguyên tắc là loại tất cả các số chữ số)
Cảm ơn bạn!

 

[CHAOQUAY]

Mình bị nhầm bạn
CHAOQUAY
xem lại giúp (Nguyên tắc là loại tất cả các số chữ số)
Cảm ơn bạn!

Bài này nếu số lượng mẫu lớn sẽ test lại.
Giờ bạn dùng tạm code này, các số xóa hết nhưng một vài chỗ thiếu dấu ","

Function TachSo(s As String)
With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "(\W+\d+)+"
   TachSo = .Replace(s, "")
End With
End Function

 

[vandia]

Bài này nếu số lượng mẫu lớn sẽ test lại.
Giờ bạn dùng tạm code này, các số xóa hết nhưng một vài chỗ thiếu dấu ","

Function TachSo(s As String)
With CreateObject("vbscript.regexp")
   .Global = True
   .Pattern = "(\W+\d+)+"
   TachSo = .Replace(s, "")
End With
End Function

Cảm ơn bạn @CHAOQUAY , thật sự bài toán này mình muốn các bạn am hiểu VBA viết để mọi người tham khảo thuật toán xóa số và chữ cho nó tổng quát để mọi người áp dụng cho tất cả các tình huống.
Vẫn bị lỗi chút bạn nhỉ.

 

[VetMini]

Cảm ơn bạn @CHAOQUAY , thật sự bài toán này mình muốn các bạn am hiểu VBA viết để mọi người tham khảo thuật toán xóa số và chữ cho nó tổng quát để mọi người áp dụng cho tất cả các tình huống.
Vẫn bị lỗi chút bạn nhỉ.

Một khi diễn tả được chính xác mình muốn gì thì thuật toán không có gì khó cả.
Muốn "tổng quát" sao không nói từ đầu?

Bạn chịu khó đọc lại từ bài #2, đến bài số #13 bạn sẽ thấy là người viết bài #13 vạch rõ là bạn chưa nắm vững đề tài của mình; nói chuyện thuật toán làm chi.

 

[vandia]

Một khi diễn tả được chính xác mình muốn gì thì thuật toán không có gì khó cả.
Muốn "tổng quát" sao không nói từ đầu?

Bạn chịu khó đọc lại từ bài #2, đến bài số #13 bạn sẽ thấy là người viết bài #13 vạch rõ là bạn chưa nắm vững đề tài của mình; nói chuyện thuật toán làm chi.

Vâng, vì mình là dân 1 mùa, làm sao mà hiểu hết như các bạn được.
Vì vậy mới cần nhừng người am hiểu như các bạn mách bảo
Kể cả kết quả lẫn hướng giải quyết

 

[CHAOQUAY]

Cảm ơn bạn @CHAOQUAY , thật sự bài toán này mình muốn các bạn am hiểu VBA viết để mọi người tham khảo thuật toán xóa số và chữ cho nó tổng quát để mọi người áp dụng cho tất cả các tình huống.
Vẫn bị lỗi chút bạn nhỉ.

Bạn có thể lập file với vài ngàn dòng mẫu thì có lẽ kết quả thu được sẽ tốt hơn.

 

[Phuocam]

... .

 

[vandia]

... .

Không thấy gì bạn
phuocam

 

[batman1]

Có gì không phải bạn @batman1 bỏ quá cho nhé

Tôi có chỉ trích gì bạn đâu? Tôi nói với bác VetMini. Tôi có trích lời bác VetMini đàng hoàng mà.