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)        ...