Estrarre rapidamente Estrai indirizzi email da una stringa di testo in Excel – Guida completa

Quando si lavora con dati importati o stringhe di testo miste in Excel, potrebbe capitare di dover estrarre indirizzi email in modo rapido e accurato. Che si tratti di un elenco di indirizzi email combinati con altro testo o dell’estrazione da un ampio set di dati, esistono diversi metodi efficienti per ottenere il risultato desiderato. Questa guida illustra varie tecniche per estrarre indirizzi email da stringhe di testo, tra cui l’uso di Flash Fill, Kutools per Excel, formule, funzioni definite dall’utente e codice VBA. Ogni metodo offre vantaggi specifici, a seconda delle proprie esigenze e della complessità dei dati.

Estrai indirizzi email da stringa di testo con Flash Fill

La funzione Flash Fill di Excel consente di formattare o estrarre automaticamente i dati in base ai modelli definiti dall’utente. In questa sezione vedremo come utilizzare Flash Fill per estrarre indirizzi email da una colonna contenente dati misti. Questo metodo è particolarmente utile quando si lavora con elenchi composti da diversi tipi di testo e si desidera isolare esclusivamente l’indirizzo email.

1. Fare clic sulla prima cella della colonna adiacente (ad esempio, B2) in cui si desidera visualizzare l’indirizzo email.
2. Digitare manualmente il Indirizzo Email dalla riga corrispondente nella colonna A, quindi premere Invio.
   Ad esempio, se A2 contiene «ana varela@gmail.com», digitare « ana varela@gmail.com » in B2.

   

3. Rimanere nella cella B3 e premere «Ctrl + E» per attivare Flash Fill.
   Excel riempirà automaticamente il resto della colonna B con il Estrai indirizzi email.

   

Un clic per estrarre in blocco Estrai indirizzi email da una stringa di testo con Kutools

Per quanto riguarda l’estrazione di indirizzi email da un set di dati, la funzione **“Estrai indirizzi email”** di Kutools per Excel si rivela un’alternativa efficace a Flash Fill di Excel. Mentre Flash Fill richiede un approccio manuale per riconoscere i modelli, Kutools per Excel automatizza l’intero processo con un solo clic, risultando ideale per gestire grandi volumi di dati in modo rapido ed efficiente. Questo strumento non solo semplifica l’estrazione, ma assicura anche precisione e velocità, perfino con dataset complessi o inconsistenti.

Dopo aver scaricato e installato Kutools per Excel, procedere come segue:

1. Seleziona l'intervallo di celle da cui desideri estrarre gli indirizzi email, quindi vai su **Kutools** > **Testo** > **Estrai indirizzi email**.
2. Nella finestra di dialogo «Estrai indirizzi email» visualizzata, selezionare una cella in cui inserire il Indirizzo Email e fare clic su OK

   

Risultato

Tutti gli indirizzi email presenti in ciascuna cella dell’intervallo selezionato vengono estratti immediatamente.

Estrai indirizzi email da stringa di testo con formula

Di seguito è riportata una formula avanzata per estrarre esclusivamente gli indirizzi email dal testo in Excel. Procedi come segue:

1. Nella cella adiacente B1, inserisci la seguente formula:

=TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ",FIND("@",A1))-1)," ", REPT(" ",LEN(A1))),LEN(A1)))

2. Premere quindi il tasto Invio, selezionare la cella B1 e trascinare il quadratino di riempimento fino all’intervallo desiderato: gli indirizzi email presenti verranno automaticamente estratti dalla stringa di testo. Vedere screenshot:

Note:

1. Verrà estratta anche la punteggiatura immediatamente successiva all’indirizzo email.

2. Se le celle non contengono l'indirizzo email, la formula visualizzerà valori di errore.

3. Se una cella contiene più di un indirizzo email, la formula estrarrà soltanto il primo.

Estrai indirizzi email da stringa di testo con funzione definita dall'utente

Oltre alla formula indicata sopra, anche una funzione definita dall’utente può aiutarti a estrarre l’indirizzo email dalla stringa di testo.

1. Tenere premuti i tasti «ALT + F11» per aprire la finestra di Microsoft Visual Basic, Applications.

2. Fare clic su «Inserisci» > «Modulo» e incollare 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. Salvare quindi il codice e inserire la formula =ExtractEmailFun(A1) in una cella vuota adiacente. Vedere lo screenshot:

4. Premere quindi il tasto Invio, selezionare la cella B1 e trascinare il quadratino di riempimento sull’intervallo in cui si desidera applicare la formula. Tutti gli indirizzi email verranno estratti dal testo della cella. Vedere screenshot:

Note:

1. Se le celle non contengono l'indirizzo email, verranno visualizzate come vuote.

2. Se una cella contiene più indirizzi email, verranno estratti tutti.

Estrai indirizzi email da stringa di testo con codice VBA

Se le formule indicate in precedenza ti sembrano complesse, il seguente codice VBA ti permette di estrarre indirizzi email in modo rapido e semplice.

1. Tenere premuti i tasti «ALT + F11» per aprire la finestra di Microsoft Visual Basic, Applications.

2. Fare clic su «Inserisci» > «Modulo» e incollare la seguente macro nella finestra del modulo.

VBA: Estrai indirizzi email da 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. Premere quindi il tasto F5 per eseguire il codice e selezionare, nella finestra di dialogo visualizzata, l'intervallo su cui applicare la macro. Vedere screenshot:

4. Fare quindi clic su OK: gli indirizzi email saranno stati estratti dalle stringhe di testo selezionate. Vedere screenshot:

Note:

1. Se le celle non contengono l’indirizzo email, verranno visualizzate come vuote.

2. Verranno estratte tutte le email, anche se in una cella sono presenti più indirizzi email.

3. Le email estratte sovrascriveranno i dati originali; si consiglia quindi di effettuare un backup prima di procedere.

Demo: Estrai indirizzi email da stringa di testo con Kutools per Excel

Articolo correlato:

Come estrarre i domini da più indirizzi email in Excel?

Migliori Strumenti per la Produttività in Office

🤖	KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate…
	Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
	Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
	Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
	Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
	Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
	Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro

Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...

Maggiori dettagli su Kutools per Excel...Scarica Gratuitamente...

---

Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

• 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 all’interno della stessa finestra, invece che in finestre separate.
• Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!

Maggiori dettagli su Office Tab...Scarica Gratuitamente...

---

Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.

Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.

• Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
• Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
• Funziona meglio insieme— produttività ottimizzata tra le app di Office
• Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
• Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi

Maggiori dettagli su Kutools for Office...Scarica Gratuitamente...