Giúp Lọc địa chỉ email từ file excel lộn xộn không theo quy tắc (1 người xem)

[pkhuan]

nhờ các anh chị diễn đàn giúp em với, em có một văn bản có chứa nhiều địa chỉ email, dữ liệu rất dài làm thủ công không làm nổi, em muốn lọc hết các địa chỉ mail ra thành một danh sách thì phải làm thế nào, các email này xếp lộn xộn lắm chả có trật tự gì cả , tất nhiên mỗi email đều có ký tự "@" ở giữa .Em đã copy vào excell dùng hàm để lọc thử nhưng không biết lọc ra thế nào ,
Giúp em với, em cần lắm.
em ví dụ thử một dòng nhé:
Nguyễn Thị Hải Yến hotgirl@gmail.com 0123456789 Hà Nội Hiền xinhgai@gmail.com Mai maixinh@gmail.com Hà Nội...

Đó lộn xộn như thế, em phải làm thế nào đây, hix

 

[gtri]

nhờ các anh chị diễn đàn giúp em với, em có một văn bản có chứa nhiều địa chỉ email, dữ liệu rất dài làm thủ công không làm nổi, em muốn lọc hết các địa chỉ mail ra thành một danh sách thì phải làm thế nào, các email này xếp lộn xộn lắm chả có trật tự gì cả , tất nhiên mỗi email đều có ký tự "@" ở giữa .Em đã copy vào excell dùng hàm để lọc thử nhưng không biết lọc ra thế nào ,
Giúp em với, em cần lắm.
em ví dụ thử một dòng nhé:
Nguyễn Thị Hải Yến hotgirl@gmail.com 0123456789 Hà Nội Hiền xinhgai@gmail.com Mai maixinh@gmail.com Hà Nội...

Đó lộn xộn như thế, em phải làm thế nào đây, hix

Chắc vẫn giải quyết được, gửi file đính kèm xem sao

 

[pkhuan]

file đây ạ, anh chị xem giúp mấy cái email nó nằm không cố định cột nào cả . có khi 1 dòng có nhiều hơn 1 email

 

[Ba Tê]

nhờ các anh chị diễn đàn giúp em với, em có một văn bản có chứa nhiều địa chỉ email, dữ liệu rất dài làm thủ công không làm nổi, em muốn lọc hết các địa chỉ mail ra thành một danh sách thì phải làm thế nào, các email này xếp lộn xộn lắm chả có trật tự gì cả , tất nhiên mỗi email đều có ký tự "@" ở giữa .Em đã copy vào excell dùng hàm để lọc thử nhưng không biết lọc ra thế nào ,
Giúp em với, em cần lắm.
em ví dụ thử một dòng nhé:
Nguyễn Thị Hải Yến hotgirl@gmail.com 0123456789 Hà Nội Hiền xinhgai@gmail.com Mai maixinh@gmail.com Hà Nội...

Đó lộn xộn như thế, em phải làm thế nào đây, hix

Thử Code này, Email trùng vẫn lấy hết.

Public Sub Loc_Email()
Dim Tem, sArr(), dArr(), I As Long, J As Long, K As Long, N As Long
With Sheet1
    sArr = .Range(.[A1], .[A1].End(xlDown)).Resize(, 40).Value
End With
ReDim dArr(1 To UBound(sArr, 1) * UBound(sArr, 2), 1 To 1)
For I = 1 To UBound(sArr, 1)
    For J = 1 To UBound(sArr, 2)
        Tem = Split(sArr(I, J), " ")
        For N = 0 To UBound(Tem)
            If InStr(Tem(N), "@") Then
                K = K + 1
                dArr(K, 1) = Trim(Tem(N))
            End If
        Next N
    Next J
Next I
With Sheet2.Range("A1").Resize(K)
    .Value = dArr
    .Sort Key1:=.Range("A1")
End With
End Sub

Muốn bỏ trùng thì thêm 1 công đoạn Remove Duplicates

 

[gtri]

file đây ạ, anh chị xem giúp mấy cái email nó nằm không cố định cột nào cả . có khi 1 dòng có nhiều hơn 1 email

Dùng công thức thì thử cái này
AR2=IFERROR(INDEX($A2:$AN2,LARGE(IF(LEN($A2:$AN2)-LEN(SUBSTITUTE($A2:$AN2,"@",""))>0,COLUMN($A2:$AN2),""),COLUMNS($AR$2:AR2))),"")
kết thúc bằng ctrl+shift+enter

copy sang phải và xuống dưới

 

[pkhuan]

Cảm Ơn 2 Anh Gtri Với Ba Tê . em làm được rồi ạ . áp dụng giải pháp của anh Gtri còn phần code em chưa học đến nên không biết vận dụng sao. cảm ơn 2 anh nhiều

 

[toancaunk]

chèn công thức vào ô nào vậy hả các bác