Come estrarre rapidamente l'indirizzo e-mail dalla stringa di testo?
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?
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))).
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:
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!
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!
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:
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:
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.
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:
4. Quindi fare clic OKe gli indirizzi e-mail sono stati estratti dalle stringhe di testo selezionate. Vedi screenshot:
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.
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:
4. Quindi fare clic OK pulsante, tutti gli indirizzi e-mail sono stati estratti dalle stringhe di testo, vedi screenshot:
Fai clic per scaricare e provare gratuitamente Kutools per Excel ora!
Demo: estrai l'indirizzo e-mail dalla stringa di testo con Kutools per Excel
Articolo correlato:
Come estrarre domini da più indirizzi e-mail in Excel?
I migliori strumenti per la produttività in ufficio
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...
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!