Cần giúp trong hàm lọc chuỗi ký tự (1 người xem)

[Xuanphuong.ntvn]

Các thầy ơi giúp em cái này với, lúc trưóc em đã làm đưọc rồi giờ quên công thức, em nhớ lúc trước dùng hàm substitute kết hợp với hàm left hay right gì đấy.
Ví dụ: dẫy email sau "hoadantour@yahoo.com" <hoadantour@yahoo.com>,
em muốn dùng công thức để trở thành hoadantour@yahoo.com
Mong các thầy giúp đỡ ạ!
Số đt hoặc zalo 0916378589

 

[Xuanphuong.ntvn]

[FONT=verdana, arial, sans-serif]Lúc trước có 1 bạn hỏi rồi, nhưng em tìm ko thấy ai trả lời vấn đề này.[/FONT]
MÌnh đang cần lọc danh sách mail trong chuỗi mà bi' chưa giải quyết dc.
VD dẫy email sau làm thế nào lọc ra danh sách tùng mail đc ??? Thanks các bro nhiều
,<> ";>, "Nguyen Xuan Son" <xuan-son.nguyen@polytechnique.org>;nhapx@vnu.edu.vn; taita@vnu.edu.vn; nnthanh@vnu.edu.vn; nhson@vnu.edu.vn; anhnv@vnu.edu.vn;;> binhnt@vnu.edu.vn; dongtvp@vnu.edu.vn; ducvm@vnu.edu.vn; hand@vnu.edu.vn; hoandd@vnu.edu.vn;;> huyennt@vnu.edu.vn; locnv@vnu.edu.vn; namlt@vnu.edu.vn; ngocpb@vnu.edu.vn; nont@vnu.edu.vn;;> ntmphuong@vnu.edu.vn; ntntrang@vnu.edu.vn; trongtv@vnu.edu.vn; thinhht@vnu.edu.vn;;> tuent@vnu.edu.vn; thientc@vnu.edu.vn; dungcc@vnu.edu.vn; haudb@vnu.edu.vn; huett_htqt@vnu.edu.vn;;> huytn@vnu.edu.vn; phuongbh@vnu.edu.vn; anhtk@vnu.edu.vn; nguyentuananh@vnu.edu.vn;;> bachp@vnu.edu.vn; chiltk@vnu.edu.vn; chauvtn@vnu.edu.vn;

 

[leonguyenz]

Bạn đưa vào file và gửi lên diễn đàn, giải thích như vậy chẳng ai hiểu đâu.

 

[giangleloi]

Lúc trước có 1 bạn hỏi rồi, nhưng em tìm ko thấy ai trả lời vấn đề này.
MÌnh đang cần lọc danh sách mail trong chuỗi mà bi' chưa giải quyết dc.
VD dẫy email sau làm thế nào lọc ra danh sách tùng mail đc ??? Thanks các bro nhiều
,<> ";>, "Nguyen Xuan Son" <xuan-son.nguyen@polytechnique.org>;nhapx@vnu.edu.vn; taita@vnu.edu.vn; nnthanh@vnu.edu.vn; nhson@vnu.edu.vn; anhnv@vnu.edu.vn;;> binhnt@vnu.edu.vn; dongtvp@vnu.edu.vn; ducvm@vnu.edu.vn; hand@vnu.edu.vn; hoandd@vnu.edu.vn;;> huyennt@vnu.edu.vn; locnv@vnu.edu.vn; namlt@vnu.edu.vn; ngocpb@vnu.edu.vn; nont@vnu.edu.vn;;> ntmphuong@vnu.edu.vn; ntntrang@vnu.edu.vn; trongtv@vnu.edu.vn; thinhht@vnu.edu.vn;;> tuent@vnu.edu.vn; thientc@vnu.edu.vn; dungcc@vnu.edu.vn; haudb@vnu.edu.vn; huett_htqt@vnu.edu.vn;;> huytn@vnu.edu.vn; phuongbh@vnu.edu.vn; anhtk@vnu.edu.vn; nguyentuananh@vnu.edu.vn;;> bachp@vnu.edu.vn; chiltk@vnu.edu.vn; chauvtn@vnu.edu.vn;

Nếu bạn chỉ muốn xài công thức, giả sử dữ liệu nằm ở ô A1. Tại A2: Bạn dùng công thức sau rồi fill xuống (râu ria còn lại chắc bạn tự xử lý bằng Ctrl + H được???)

=TRIM(MID(SUBSTITUTE($A$1,";",REPT(" ",1000)),ROWS($1:1)*1000-999,1000))

 

[HungQuoc49]

Lúc trước có 1 bạn hỏi rồi, nhưng em tìm ko thấy ai trả lời vấn đề này.
MÌnh đang cần lọc danh sách mail trong chuỗi mà bi' chưa giải quyết dc.
VD dẫy email sau làm thế nào lọc ra danh sách tùng mail đc ??? Thanks các bro nhiều
,<> ";>, "Nguyen Xuan Son" <xuan-son.nguyen@polytechnique.org>;nhapx@vnu.edu.vn; taita@vnu.edu.vn; nnthanh@vnu.edu.vn; nhson@vnu.edu.vn; anhnv@vnu.edu.vn;;> binhnt@vnu.edu.vn; dongtvp@vnu.edu.vn; ducvm@vnu.edu.vn; hand@vnu.edu.vn; hoandd@vnu.edu.vn;;> huyennt@vnu.edu.vn; locnv@vnu.edu.vn; namlt@vnu.edu.vn; ngocpb@vnu.edu.vn; nont@vnu.edu.vn;;> ntmphuong@vnu.edu.vn; ntntrang@vnu.edu.vn; trongtv@vnu.edu.vn; thinhht@vnu.edu.vn;;> tuent@vnu.edu.vn; thientc@vnu.edu.vn; dungcc@vnu.edu.vn; haudb@vnu.edu.vn; huett_htqt@vnu.edu.vn;;> huytn@vnu.edu.vn; phuongbh@vnu.edu.vn; anhtk@vnu.edu.vn; nguyentuananh@vnu.edu.vn;;> bachp@vnu.edu.vn; chiltk@vnu.edu.vn; chauvtn@vnu.edu.vn;

Xem file đính kèm. Nhấn "LỌC"

 

[phulien1902]

Lúc trước có 1 bạn hỏi rồi, nhưng em tìm ko thấy ai trả lời vấn đề này.
MÌnh đang cần lọc danh sách mail trong chuỗi mà bi' chưa giải quyết dc.
VD dẫy email sau làm thế nào lọc ra danh sách tùng mail đc ??? Thanks các bro nhiều
,<> ";>, "Nguyen Xuan Son" <xuan-son.nguyen@polytechnique.org>;nhapx@vnu.edu.vn; taita@vnu.edu.vn; nnthanh@vnu.edu.vn; nhson@vnu.edu.vn; anhnv@vnu.edu.vn;;> binhnt@vnu.edu.vn; dongtvp@vnu.edu.vn; ducvm@vnu.edu.vn; hand@vnu.edu.vn; hoandd@vnu.edu.vn;;> huyennt@vnu.edu.vn; locnv@vnu.edu.vn; namlt@vnu.edu.vn; ngocpb@vnu.edu.vn; nont@vnu.edu.vn;;> ntmphuong@vnu.edu.vn; ntntrang@vnu.edu.vn; trongtv@vnu.edu.vn; thinhht@vnu.edu.vn;;> tuent@vnu.edu.vn; thientc@vnu.edu.vn; dungcc@vnu.edu.vn; haudb@vnu.edu.vn; huett_htqt@vnu.edu.vn;;> huytn@vnu.edu.vn; phuongbh@vnu.edu.vn; anhtk@vnu.edu.vn; nguyentuananh@vnu.edu.vn;;> bachp@vnu.edu.vn; chiltk@vnu.edu.vn; chauvtn@vnu.edu.vn;

Code dưới đây cho bài toán của bạn:

Sub TachEmail()
    Dim St As String
    Dim x As Variant
    Dim i As Long
    St = Range("A1").Text
    x = Split(St, ";")
    For i = 0 To UBound(x)
        Cells(i + 5, 1).Value = Trim(x(i))
    Next i
End Sub

 

[Xuanphuong.ntvn]

Cám ơn mọi ngưòi, em đã làm được rồi ạ,cám ơn mọi người lần nữa ạ