Hàm tách số từ trong chuỗi

[PhanTuHuong]

Trong một chuỗi gồm cả số và chữ, hàm RemoveNonNumeric dưới đây sẽ tách các số đó. Các số rời rạc được sắp xếp với nhau thành một con số để có thể tính toán được. Hàm này ngắn gọn hơn hàm trong sách Lập trình VBA

'Nguồn từ tác giả Andrew Baker trang www.vbusers.com'
Function RemoveNonNumeric(sNumberToClean As String) As String
  Const NUMERIC_CHARS = "0123456789.,"
  Dim lThisChar As Long 
  Dim sResult As String
  For lThisChar = 1 To Len(sNumberToClean)
    If InStr(1, NUMERIC_CHARS, Mid$(sNumberToClean, lThisChar, 1)) > 0 Then
       'Found a numeric character'
       sResult = sResult + Mid$(sNumberToClean, lThisChar, 1)
    End If
  Next
  'Return the result
  RemoveNonNumeric = sResult
End Function

Kết quả như ở hình 18-16 dưới đây:

 

[hungpecc1]

Cho hỏi cái tôi có 1 cột có hàng 1 : Ông Nguyễn Đức an bà Vũ thị hà cột 2 : Ông lê văn tam bà nguyễn thị thuý Làm thế nào để tách ông 1 cột bà 1 cột . Mình cần công thức cho nhiều hàng ko phải làm từng ô . Tk

ý bạn là dùng VBA không dùng công thức trong excel ???

 

[hoamattroicoi]

Cho hỏi cái tôi có 1 cột có hàng 1 : Ông Nguyễn Đức an bà Vũ thị hà cột 2 : Ông lê văn tam bà nguyễn thị thuý Làm thế nào để tách ông 1 cột bà 1 cột . Mình cần công thức cho nhiều hàng ko phải làm từng ô . Tk

Nếu dữ liệu có chữ ÔNG và BÀ chuẩn như ví dụ mà bạn đưa lên thì có thể căn cứ vào đó để tách dữ liệu theo yêu cầu của bạn. Tốt nhất muốn có kết quả chính xác và đỡ mất công mọi người thì bạn đưa file đính kèm lên nhé. thanks!