Nhờ các cao thủ giúp mình tách chuỗi phức tạp này với!!!

[cungnonao123]

Chào các bạn,

Mình có file excel này gồm nhiều chuỗi nằm ở nhiều dòng (lấy từ các mẩu quảng cáo trên báo) gồm thông tin về quảng cáo và cuối cùng là số điện thoại và tên của người liên hệ (Gồm nhiều định dạng, VD: LH: abc-123, Tel: 123-abc, TL: 123, 456 – abc). Giờ mình muốn tách dãy số điện thoại ra, nếu tách được tên ra 1 cột thì càng tốt.
Đã nghiên cứu nhiều trên 4rum mà vẫn chưa làm được.
Mong mọi người giúp đỡ

 

[dhn46]

Không phải cao thủ có giúp được bạn không? Tiêu đề của bạn vi phạm nội quy nên bị khóa ráng chịu nhé.

Tôi dùng VBA với function dưới đây, sẽ không được 100% đâu vì dữ liệu nhập tay chắc chắn có sai sót song cứ tạm xài nha

Function Tach(ByVal Str As String)
    With CreateObject("Vbscript.RegExp")
        .Pattern = "\d+"
        .Global = True
            For Each m In .Execute(Str)
                 If Len(m) > 8 And Len(m) < 12 Then
                    Tach = Tach & ", " & m
                 End If
            Next
    End With
    Tach = Right(Tach, Len(Tach) - 1)
End Function

 

[cungnonao123]

Cám ơn bác,

Vì e k làm được nên ai làm được e đều coi là cao thủ :v, tiêu đề sao mới đúng vậy bác?

 

[dhn46]

Cám ơn bác,

Vì e k làm được nên ai làm được e đều coi là cao thủ :v, tiêu đề sao mới đúng vậy bác?

Chia sẻ với bạn 1 chút, không vừa tai bạn bỏ quá

1/ Cao thủ nào ai dám nhận, ai làm cho bạn đều là cao thủ? Nhiều thành viên GPE rất giỏi nhưng cũng ngại cái từ "cao thủ", "thấp thủ" cũng ngại trả lời và tất lẽ dĩ ngẫu khả năng không được phản hồi là CÓ.

2/ Diễn đàn này các Mod, Min rất chú trọng tiêu đề, mình là thành viên cũng nên theo. Theo ở đâu thì tốt nhất là đọc nội quy diễn đàn bạn nhỉ? Thôi thì sống và làm việc theo pháp luật sẽ tốt hơn. Các thành viên như tôi chỉ có ý nhắc nhở chung, ý thức chung để tránh bị khóa đề tài thôi (Có rất nhiều tên đề tài như này bị khóa rồi nhé).

 

[doatmenhhon]

Bạn xem file này đã đúng ý bạn chưa? Bạn thêm số 0 vào trước số điện thoại, lưu ý điều chỉnh khi số điện thoại là 12 số thì thay 10 bằng 12

 

[cungnonao123]

Bình thường mà bạn, mình chỉ muốn câu chuyện vui vẻ thoải mái thôi, do mình cũng mới đọc và lần đầu tiên mạn phép hỏi trên diễn đàn này, kể cả những diễn đàn khác. Hehe, cám ơn bác nhiều, nếu có duyên gặp nhau xin mời bác ly cafe

 

[cungnonao123]

cám ơn bạn nhiều, mình làm được rồi