Come convertire più indirizzi email in collegamenti ipertestuali in Excel?
Se hai un elenco di indirizzi email in formato testo normale in Excel e desideri trasformarli in collegamenti ipertestuali cliccabili per inviare messaggi di posta elettronica, farlo manualmente per numerose voci può risultare molto dispendioso in termini di tempo. Questa guida presenta due metodi efficienti: l’uso della formula COLLEG.IPERTESTUALE o di una macro VBA.
Converti più Indirizzo Email in collegamenti ipertestuali con una formula
Converti più Indirizzo Email in collegamenti ipertestuali con codice VBA
Converti più Indirizzo Email in collegamenti ipertestuali con una formula
Grazie alla funzione Collegamento ipertestuale, puoi trasformare in un colpo solo l’intera colonna Indirizzo Email in indirizzi di collegamento ipertestuale.
1. Inserisci questa formula =hyperlink("mailto:"&A2) in una cella vuota dove desideri visualizzare il risultato; vedi lo screenshot:
2. Trascina quindi il quadratino di riempimento verso il basso fino alle celle a cui vuoi applicare la formula: tutti gli indirizzi email diventeranno collegamenti ipertestuali cliccabili, come mostrato nello screenshot seguente:
Converti più Indirizzo Email in collegamenti ipertestuali con codice VBA
Come si può notare, applicando la formula precedente, la stringa «mailto:» viene aggiunta all’inizio di ciascun indirizzo email. Se preferisci evitare che «mailto:» compaia negli indirizzi, il seguente codice VBA potrebbe fare al caso tuo.
1. Tenere premuti i tasti Alt + F11 in Excel per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare la seguente macro nella finestra del Modulo.
Codice VBA: Converti più Indirizzo Email in collegamenti ipertestuali
Sub EmailHylink()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Dopo aver incollato il codice, premere il tasto F5 per eseguirlo. Verrà visualizzata una finestra di dialogo che chiede di selezionare l’intervallo dati da elaborare; vedere lo screenshot:
4. Fare quindi clic su OK; tutti gli indirizzi email selezionati saranno convertiti in indirizzi di collegamento ipertestuale; vedere lo screenshot:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi