Formula pulire lista indirizzi email

Questa volta vediamo come sfruttare Excel per pulire una lista di indirizzi email. Può infatti capitare di avere una serie di contatti con del testo prima o dopo. Se vogliamo ottenere un elenco isolando solo l'indirizzo vero e proprio, magari per la creazione di una mailing list, ecco come fare.

Dopo avere copiato ogni indirizzo partendo dalla cella A1... eseguire questa macro

Sub TrovaMail()
Dim Textstrng, mMail As String
r = 1 'riga inizio stringhe
c = 1 'colonna inizio stringhe
c1 = 2 'colonna dove scrivere email trovata
Do Until Cells(r, 1) = ""
    Textstrng = Cells(r, 1).Text
    Position@ = InStr(1, Textstrng, "@")
    EmStart = InStrRev(Textstrng, " ", Position@)
    If EmStart = 0 Then EmStart = 1
    EmEnd = InStr(Position@, Textstrng, " ")
    If EmEnd = 0 Then EmEnd = Len(Textstrng) + 1
    MailID = Trim(Mid(Textstrng, EmStart, EmEnd - EmStart))
    If Right(MailID, 1) = "." Then
        mMail = Left(MailID, Len(MailID) - 1)
    Else
        mMail = MailID
    End If
    Cells(r, c1) = mMail
    r = r + 1
Loop
End Sub

N.B. Ovviamente tale macro è perfezionabile e personalizzabile (esempio nella riga/colonna di inizio e/o in quella dei risultati)