UDF - Estrazione dell'indirizzo e-mail dal testo

Anonim

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 Long

Dim 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