Loại bỏ số ra khỏi dãy ký tự

[Nguyễn Xuân Sơn]

Xin chào các bạn!
Tôi có một bảng chiết xuất từ một ứng dụng ngoài EXcel mà trong cột đó mỗi các dòng có cả ký tự và số: VD một dòng như sau - No phai thu 123456789 4551234698
Vậy có cách nào loại bỏ được các số ra khỏi dãy ký tự để được là: - No phai thu
Các bạn giải quyết hộ tôi với .
Xin cảcm ơn các bạn!

 

[TranThanhPhong]

Xin chào các bạn!
Tôi có một bảng chiết xuất từ một ứng dụng ngoài EXcel mà trong cột đó mỗi các dòng có cả ký tự và số: VD một dòng như sau - No phai thu 123456789 4551234698
Vậy có cách nào loại bỏ được các số ra khỏi dãy ký tự để được là: - No phai thu
Các bạn giải quyết hộ tôi với .
Xin cảcm ơn các bạn!

Bạn dùng hàm tự tạo sau:

Function NumberOut(rng As Range) As String
    Dim i As Integer
    For i = 1 To Len(rng)
        Select Case Asc(Mid(rng.Value, i, 1))
        Case 48 To 57
        Case Else
            NumberOut = NumberOut & Mid(rng.Value, i, 1)
        End Select
    Next i
    NumberOut = Application.WorksheetFunction.Trim(NumberOut)
End Function

Good luck,
Thanh Phong