Thử code dưới
Option Explicit
Sub abc()
Dim nguon
Dim kq
Dim i
With Sheet1
nguon = .Range("B2:B7")
ReDim kq(1 To UBound(nguon), 1 To 1)
With CreateObject("VBScript.RegExp")
.Pattern = "[a-zA-Z\d]+"
For i = 1 To UBound(nguon)
If .test(nguon(i, 1)) Then
kq(i, 1) = .Execute(nguon(i, 1))(0)
End If
Next i
End With
.Range("L2:L7") = kq
End With
End Sub
=SUBSTITUTE(B2,CHAR(160),"")
Em cảm ơn ạ. Em đã test thử code và nhận được kết quả như mong muốn ạ.
Kết quả ở cột L bên cạnh đấy ạ. Ngoài ra L3 em thấy lại cắt mất ký tự đầu tiên. Em áp dụng hàm này với tất cả các trường hợp thì chỉ chạy đúng được với trường hợp em tự nhập dữ liệu vào và có dấu cách ở đầu tiên thôi ạ
Tính ra bạn còn khó hơn cái "khoảng trắng"
Bạn copy cái khoảng trắng đó rồi Ctrl+H, dán vào Find what, Replace with để trống rồi Replace all là bay màu hết nhé.
Xing chuyện rồi tán dóc nhở:
Thớt dùng từ "khoảng trắng cứng đầu" cho nbsp (non-breaking space) cũng có phần nào đúng nhỉ
Thảo nào nó mang hơi hướm đó. Nhưng từ "cứng đầu" chỉ nói về tính chất chứ không phải nhiệm vụ ngữ vựng, văn phạm.Tên đó là do mấy tên trên du túp, báo lá cải đặt tên đó anh.
...
Ủa! em nhớ là: từ "khoảng trắng cứng đầu" zịch là: "xìbây quai hát hít" mà anh!?Xing chuyện rồi tán dóc nhở:
Thớt dùng từ "khoảng trắng cứng đầu" cho nbsp (non-breaking space) cũng có phần nào đúng nhỉ
Người ta muốn bạn đưa file lên vì không tin kết quả 48 ở K2, và muốn xem thực chất B2 là gì. Chắc chắn B2 này không phải B2 ở bài 1. Bạn kia nói bạn khó hơn cái khoảng trắng, thực chất là muốn nói bạn cứng đầu hơn á. Người ta muốn giúp nên mới bảo bạn đưa file lỗi 48 mà bạn không chịu đưa, chỉ lo cãi.
"khoảng" dịch là in-tơ-vôn nghe xịn hơn.
Đó là 1 trong các trường hợp, và tôi nghĩ bé bo muốn xác minh tại sao nên yêu cầu gởi file lên. Gọi là dữ liệu copy thì nguyên gốc không có format kiểu đó, trừ khi cố tình.
