Extraer email de cadena de texto en excel

 Si tienes el casoque te pasan una base de datos sin formato, y debes extraer los correos electronicos, para una campaña de marketing o para enviar un envio masivo importante puedes usar

Extraiga La Dirección De Correo Electrónico De La Cadena De Texto Con La Función Definida Por El Usuario

Excepto la fórmula anterior, una función definida por el usuario también puede ayudarlo a obtener la dirección de correo electrónico de la cadena de texto.

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en la ventana Módulo.

Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
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
ExtractEmailFun = OutStr
End Function

3. Luego guarde el código e ingrese la fórmula = ExtractEmailFun (A1) en una celda en blanco adyacente, vea la captura de pantalla: