Vai al contenuto principale

Come estrarre rapidamente l'indirizzo e-mail dalla stringa di testo?

Autore: Xiaoyang Ultima modifica: 2020-04-23

Quando importi alcuni indirizzi e-mail dal sito Web al foglio di lavoro Excel, contiene sempre testo irrilevante, ma ora vuoi solo estrarre gli indirizzi e-mail puri dalla stringa di testo (vedi schermate seguenti). Come hai potuto ottenere rapidamente solo gli indirizzi email dal testo della cella?

doc-extract-email1 -2 doc-extract-email2

Estrai l'indirizzo email dalla stringa di testo con la formula

Estrai l'indirizzo email dalla stringa di testo con la funzione definita dall'utente

Estrai l'indirizzo email dalla stringa di testo con il codice VBA

Estrai l'indirizzo email dalla stringa di testo con Kutools per Excel


freccia blu freccia destra Estrai l'indirizzo email dalla stringa di testo con la formula

Qui ti presento una lunga formula per estrarre solo gli indirizzi email dal testo in Excel. Si prega di fare quanto segue:

1. Nella cella adiacente B1, inserisci questa formula = TRIM (RIGHT (SOSTITUISCE (LEFT (A1, FIND ("", A1 & "", FIND ("@", A1)) - 1), "", REPT ("", LEN (A1))), LEN ( A1))).

doc-extract-email3

2. Quindi premere entrare chiave, quindi selezionare la cella B1 e trascinare il quadratino di riempimento sull'intervallo in cui si desidera contenere questa formula. E gli indirizzi e-mail nell'intervallo sono stati estratti dalla stringa di testo. Vedi screenshot:

doc-extract-email4

Note:

1. Verrà estratta anche la punteggiatura dopo l'indirizzo e-mail.

2. Se le celle non contengono gli indirizzi di posta elettronica, la formula visualizzerà i valori di errore.

3. Se in una cella sono presenti più indirizzi di posta elettronica, la formula estrarrà solo il primo indirizzo.


Estrai più indirizzi email da stringhe di testo

Kutools for Excel'S Estrai indirizzo email può aiutarti a estrarre gli indirizzi email dalle stringhe di testo in modo rapido e conveniente. Fai clic per scaricare Kutools per Excel!

doc estrarre email-1

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!


freccia blu freccia destra Estrai l'indirizzo email dalla stringa di testo con la funzione definita dall'utente

Ad eccezione della formula sopra, una funzione definita dall'utente può anche aiutarti a ottenere l'indirizzo e-mail dalla stringa di testo.

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla la seguente macro nella finestra del modulo.

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. Quindi salva il codice e inserisci la formula = ExtractEmailFun (A1) in una cella vuota adiacente, vedi screenshot:

doc-extract-email5

4. E poi premere entrare chiave, seleziona la cella B1 e trascina il quadratino di riempimento sull'intervallo in cui hai bisogno della formula. E tutti gli indirizzi email sono stati estratti dal testo della cella. Vedi screenshot:

doc-extract-email6

Note:

1. Se le celle non hanno gli indirizzi e-mail, verranno visualizzate celle vuote.

2. Se in una cella sono presenti più indirizzi di posta elettronica, verranno estratti tutti i messaggi di posta elettronica.


freccia blu freccia destra Estrai l'indirizzo email dalla stringa di testo con il codice VBA

Se ritieni che le formule sopra siano fastidiose per te, il seguente codice VBA può aiutarti a estrarre gli indirizzi e-mail in uno.

1. Tieni premuto il ALT + F11 keys, e apre un file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla la seguente macro nel file Finestra del modulo.

VBA: estrae gli indirizzi e-mail dalla stringa di testo

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. Quindi premere F5 chiave per eseguire questo codice e dovresti selezionare un intervallo in cui desideri utilizzare VBA nella finestra di dialogo spuntata, vedi screenshot:

doc-extract-email7

4. Quindi fare clic OKe gli indirizzi e-mail sono stati estratti dalle stringhe di testo selezionate. Vedi screenshot:

doc-extract-email8 -2 doc-extract-email9

Note:

1. Se le celle non hanno gli indirizzi e-mail, verranno visualizzate celle vuote.

2. Verranno estratte tutte le e-mail, se in una cella sono presenti più indirizzi e-mail.

3. Le e-mail estratte copriranno i dati originali, quindi è meglio eseguire prima il backup dei dati se necessario.


freccia blu freccia destra Estrai l'indirizzo e-mail dalla stringa di testo con Kutools per Excel con un clic

I metodi di cui sopra sembrano un po 'complicati per il nostro principiante di Excel, qui posso consigliarti uno strumento facile e veloce- Kutools for Excel, Con la sua Estrai indirizzo email utility, puoi estrarre gli indirizzi email dalle stringhe di testo senza troppi sforzi.

Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni.

Se hai installato Kutools for Excel, si prega di fare come segue:

1. Seleziona le celle che contengono le stringhe di testo.

2. Clic Kutools > Testo > Estrai indirizzo email, vedi screenshot:

3. E un Estrai indirizzo email verrà visualizzata la finestra di dialogo, selezionare una cella in cui si desidera inserire il risultato, vedere screenshot:

doc-extract-email9

4. Quindi fare clic OK pulsante, tutti gli indirizzi e-mail sono stati estratti dalle stringhe di testo, vedi screenshot:

doc-extract-email9

Fai clic per scaricare e provare gratuitamente Kutools per Excel ora!


freccia blu freccia destra Demo: estrai l'indirizzo e-mail dalla stringa di testo con Kutools per Excel

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

Articolo correlato:

Come estrarre domini da più indirizzi e-mail in Excel?

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (41)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
GENIUS !!!!!
This comment was minimized by the moderator on the site
You're a genius!!!
This comment was minimized by the moderator on the site
Really helpful to extract emails in a neat way, thank you!
This comment was minimized by the moderator on the site
Malheureusement la première formule donnée se met en erreur....
This comment was minimized by the moderator on the site
Thank you very much, spend only half hour looking for this and save me ten hours of work!
This comment was minimized by the moderator on the site
This is the most useful page I have ever found on Excel - thank you.
This comment was minimized by the moderator on the site
How do you extract multiple email addresses for one cell?
This comment was minimized by the moderator on the site
Hi, Donna,
The second and the third methods in this article can help you to extract multiple Email addresses from one cell, please try, thank you!
This comment was minimized by the moderator on the site
Quando extraído mais que um email usando a macro, como separa-los depois usando uma outra célula ? Ou é possível extrair já separando ?
This comment was minimized by the moderator on the site
Saved me hours of manual parsing. Thank you!
This comment was minimized by the moderator on the site
Thank you!
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations