¿Cómo extraer rápidamente una dirección de correo electrónico de una cadena de texto?

Cuando importa algunas direcciones de correo electrónico desde el sitio web a la hoja de cálculo de Excel, siempre contiene texto irrelevante, pero ahora solo desea extraer las direcciones de correo electrónico puras de la cadena de texto (consulte las siguientes capturas de pantalla). ¿Cómo podría obtener rápidamente solo las direcciones de correo electrónico del texto de la celda?

Extraiga la dirección de correo electrónico de la cadena de texto con la fórmula Extraiga la dirección de correo electrónico de la cadena de texto con la función definida por el usuario Extraiga la dirección de correo electrónico de la cadena de texto con código VBA Extraiga la dirección de correo electrónico de la cadena de texto con Kutools para Excel

Extraiga la dirección de correo electrónico de la cadena de texto con la fórmula

Aquí les presento una fórmula larga para extraer solo las direcciones de correo electrónico del texto en Excel. Haz lo siguiente:

1. En la celda adyacente B1, ingrese esta fórmula = RECORTAR (DERECHA (SUSTITUIR (IZQUIERDA (A1, ENCONTRAR ("", A1 & "", ENCONTRAR ("@", A1)) - 1), "", REPETIR ("", LARGO (A1))), LARGO ( A1))).

2. Entonces presione Enviar , luego seleccione la celda B1 y arrastre el controlador de relleno al rango que desea que contenga esta fórmula. Y las direcciones de correo electrónico en el rango se han extraído de la cadena de texto. Ver captura de pantalla:

Notas

1. También se extraerá la puntuación después de la dirección de correo electrónico.

2. Si las celdas no contienen las direcciones de correo electrónico, la fórmula mostrará valores de error.

3. Si hay más de una dirección de correo electrónico en una celda, la fórmula solo extraerá la primera dirección.

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:

4. Y luego presione Enviar , seleccione la celda B1 y arrastre el controlador de relleno hasta el rango en el que necesita la fórmula. Y todas las direcciones de correo electrónico se han extraído del texto de la celda. Ver captura de pantalla:

Notas

1. Si las celdas no tienen las direcciones de correo electrónico, se mostrarán celdas en blanco.

2. Si hay más de una dirección de correo electrónico en una celda, se extraerán todos los correos electrónicos.

Extraiga la dirección de correo electrónico de la cadena de texto con código VBA

Si cree que las fórmulas anteriores son problemáticas para usted, el siguiente código VBA puede ayudarlo a extraer las direcciones de correo electrónico en una.

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

2. Hacer clic recuadro > Móduloy pegue la siguiente macro en el Ventana del módulo.

VBA: extraer direcciones de correo electrónico de una cadena de texto

Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
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

3. Entonces presione F5 para ejecutar este código, y debe seleccionar un rango que desea usar el VBA en el cuadro de diálogo emergente, vea la captura de pantalla:

4. Luego haga clic OKy las direcciones de correo electrónico se han extraído de las cadenas de texto seleccionadas. Ver capturas de pantalla:

Notas

1. Si las celdas no tienen las direcciones de correo electrónico, se mostrarán celdas en blanco.

2. Se extraerán todos los correos electrónicos, si hay más de una dirección de correo electrónico en una celda.

3. Los correos electrónicos extraídos cubrirán los datos originales, por lo que será mejor que primero haga una copia de seguridad de los datos si es necesario.

Extraiga la dirección de correo electrónico de la cadena de texto con Kutools para Excel con un clic

Los métodos anteriores parecen algo complicados para nuestro principiante de Excel, aquí, puedo recomendarle una herramienta rápida y fácil: Kutools for Excel, Con su Extraer dirección de correo electrónico utilidad, puede extraer las direcciones de correo electrónico de las cadenas de texto sin mucho esfuerzo.

Si tienes instalado Kutools for Excel, haga lo siguiente:

1. Seleccione las celdas que contienen las cadenas de texto.

2. Hacer clic Kutools > Texto > Extraer dirección de correo electrónico, ver captura de pantalla:

3. Y un Extraer dirección de correo electrónico aparecerá el cuadro de diálogo, seleccione una celda donde desea colocar el resultado, vea la captura de pantalla:

4. Luego haga clic OK botón, todas las direcciones de correo electrónico se han extraído de las cadenas de texto, vea la captura de pantalla:

Haga clic para descargar y probar gratis Kutools para Excel ahora!

Demostración: extraiga la dirección de correo electrónico de la cadena de texto con Kutools para Excel

Artículo relacionado:

¿Cómo extraer dominios de varias direcciones de correo electrónico en Excel?

---

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

• Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
• Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
• Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
• Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
• Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
• Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
• Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
• Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
• Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.

Leer más ... Descarga gratis... Compra... 

---

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

• Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
• ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!

Leer más ... Descarga gratis... Compra...