Nel caso in cui desideri un processo che ti aiuti a recuperare l'indirizzo email dalla stringa, questo articolo fa per te. In questo articolo, creeremo UDF per estrarre l'ID e-mail dal testo.
Domanda): I dati in mio possesso contengono troppe informazioni in formato testo. Voglio che un codice VBA mi aiuti a estrarre il maggior numero di ID e-mail dal testo per ridurre al minimo i miei sforzi manuali.
Dobbiamo seguire i passaggi seguenti:
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice, seleziona Visual Basic
Inserisci il seguente codice nel modulo standard:
Funzione ExtractEmailFromText(s As String) As String Dim AtTheRateSignSymbol As Long Dim i As LongDim TempStr As String
Const CharList As String = "[A-Za-z0-9._-]"
AtTheRateSignSymbol = InStr(s, "@")
Se AtTheRateSignSymbol = 0 Allora
ExtractEmailFromText = ""
Altro
TempStr = ""
Per i = AtTheRateSignSymbol - Passaggio da 1 a 1 -1
If Mid(s, i, 1) Like CharList Then
TempStr = Mid(s, i, 1) & TempStr
Altro
Esci per
Finisci se
Avanti io
Se TempStr = "" Quindi esci dalla funzione
TempStr = TempStr & "@"
For i = AtTheRateSignSymbol + 1 To Len(s)
If Mid(s, i, 1) Like CharList Then
TempStr = TempStr & Mid(s, i, 1)
Altro
Esci per
Finisci se
Avanti io
Finisci se
Se Right(TempStr, 1) = "." Allora TempStr = _
Sinistra(TempStr, Len(TempStr) - 1)
ExtractEmailFromText = TempStr
Fine funzione
- Nella cella B2, la formula è
- =EstraiEmailDaTesto(A2)
Otterremo il risultato. Fare riferimento all'istantanea di seguito:
Il codice sopra estrarrà il primo indirizzo email nel caso in cui ci sia più di 1 ID email in una cella.
In questo modo, possiamo recuperare la posta elettronica sia dal testo.
Download - Estrazione dell'indirizzo e-mail dal testo - xlsm