xom giúp code trích lọc dữ liệu

[xsatteam]

em có dữ liệu ở một ô như sau :

"Công 297-7854-7845 ty Điện thoại Đà Nẵng"

trong đó đoạn 297-7854-7845 luôn là một chuỗi có 13 kí tự và bắt đầu = "297-"

nhờ các bác giúp hộ : copy chuỗi 297-xxxx-xxxx này , và ghi vào cell bên cạnh

dùng hàm trong excell thì em làm được nhưng dùng vba thì em chịu , vì quá khó , xin cảm ơn các bác !

 

[ChanhTQ@]

Hàm tự tạo đó nha:

Option Explicit
Function SoVanDon(StrC As String) As String
 Const DDai As Byte = 13:                       Dim jJ As Byte
 
 For jJ = 1 To Len(StrC)
    If IsNumeric(Mid(StrC, jJ, 1)) Then
        SoVanDon = Mid(StrC, jJ, DDai):         Exit Function
    End If
 Next jJ
End Function

Xài như vầy: tại [B2] bạn nhập cú fáp =SoVanDon(A2) & Copy xuống các dòng dưới!

Chúc xuân vui vẻ!

 

[ndu96081631]

em có dữ liệu ở một ô như sau :

"Công 297-7854-7845 ty Điện thoại Đà Nẵng"

trong đó đoạn 297-7854-7845 luôn là một chuỗi có 13 kí tự và bắt đầu = "297-"

nhờ các bác giúp hộ : copy chuỗi 297-xxxx-xxxx này , và ghi vào cell bên cạnh

dùng hàm trong excell thì em làm được nhưng dùng vba thì em chịu , vì quá khó , xin cảm ơn các bác !

Gõ vào cell B2 công thức sau:

=MID($A2,FIND(297,$A2),13)

------------------------------
Bác ChanhTQ@ ơi, với điều kiện mà tác giả đưa như ở trên, em tưởng code chỉ cần vầy thôi chứ:

Function SoVanDon(StrC As String) As String
  SoVanDon = Mid(StrC, InStr(StrC, 297), 13)
End Function

 

[xsatteam]

Gõ vào cell B2 công thức sau:
MID($A2,FIND(297,$A2),13)[/php]------------------------------

Function SoVanDon(StrC As String) As String
SoVanDon = Mid(StrC, InStr(StrC, 297), 13)
End Function

cảm ơn các bác đã chỉ bảo , hóa ra đơn giản như vậy