Lọc email trong 1 dòng (2 người xem)

[tran quoc khiem]

Dear các bác,
em có 1 file excel chứa nhiều thông tin khách hàng trên 1 dòng như attached đính kèm, em muốn lọc lấy địa chỉ email thôi thì phải làm sao. các bác chỉ em giúp với. em gà mờ mong các bác chỉ giáo ạ

 

[befaint]

Text to Columns
Filter: Gõ ký tự @ là xong.
Nhấn Alt ; rồi copy

 

[tran quoc khiem]

cả ngàn dòng làm vậy sao được bác ???

 

[moctriet]

Code chôm chỉa trên mạng, bạn xài tạm

Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant, Index As Integer
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        extractStr = arr(i, j)
        outStr = ""
        Index = 1
        Do While True
            Index1 = VBA.InStr(Index, extractStr, "@")
            getStr = ""
            If Index1 > 0 Then
                For p = Index1 - 1 To 1 Step -1
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = Mid(extractStr, p, 1) & getStr
                    Else
                        Exit For
                    End If
                Next
                getStr = getStr & "@"
                For p = Index1 + 1 To Len(extractStr)
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = getStr & Mid(extractStr, p, 1)
                    Else
                        Exit For
                    End If
                Next
                Index = Index1 + 1
                If outStr = "" Then
                    outStr = getStr
                Else
                    outStr = outStr & Chr(10) & getStr
                End If
            Else
                Exit Do
            End If
        Loop
        arr(i, j) = outStr
    Next
Next
WorkRng.Value = arr
End Sub

 

[befaint]

Tưởng có 1 dòng...
Nếu "cả ngàn dòng" thì dùng não, mắt và tay: Mắt nhìn thấy chỗ nào là địa chỉ email thì não điều khiển tay cóp ra. Chắc là vậy. Chỉ đoán thôi.