A volte capita che abbiamo un elenco di E-Mail che si trovano in un file di Word, ad esempio e a noi serve urgentemente un file di Excel con queste E-Mail Come risolvere? Come nel caso dei buchi in una colonna ci abbiamo impiegato pochi minuti, anche in questo caso ci impiegheremo pochi minuti. Consideriamo la seguente lista 1 - Premere ALT + F11 Comparirà la scheda Visual Basic Application Editions Excel - Visual Basic Application Edition 2 - Inserisci -> Modulo e nella casella di testo copiare ed incollare il seguente testo Public Function f(ByVal v As Variant) As String Dim s() As String Dim lng As Long f = "Nessuna email" s = Split(v, " ") For lng = 0 To UBound(s) If InStr(s(lng), "@") Then f = s(lng) Exit For End If Next End Function Excel - VBA con Moudo e codie inserito 3 - Ripremere ALT + F11 (torna ad Excel) 4 - Se le E-Mail si trovano