Come convertire più indirizzi email in collegamenti ipertestuali in Excel? 

Se hai un elenco di indirizzi email in formato testo semplice in Excel e desideri convertirli in collegamenti ipertestuali cliccabili per inviare email, farlo manualmente per più voci può essere dispendioso in termini di tempo. Questa guida dimostra due metodi efficienti: utilizzando la formula HYPERLINK o una macro VBA.

Convertire più indirizzi email in collegamenti ipertestuali con la Formula

Convertire più indirizzi email in collegamenti ipertestuali con il codice VBA

Convertire più indirizzi email in collegamenti ipertestuali con la Formula

Con la funzione Collegamento ipertestuale, puoi convertire rapidamente gli indirizzi email della colonna in indirizzi con collegamenti ipertestuali in una sola volta.

1. Inserisci questa formula =hyperlink("mailto:"&A2) in una cella vuota dove desideri inserire il risultato, vedi screenshot:

2. Quindi trascina la maniglia di riempimento verso il basso fino alle celle in cui desideri che sia presente questa formula, e tutti gli indirizzi email diventeranno collegamenti ipertestuali cliccabili come mostrato nello screenshot seguente:

Convertire più indirizzi email in collegamenti ipertestuali con il codice VBA

Come puoi vedere, utilizzando la formula sopra, una stringa “mailto:” verrà aggiunta davanti a ciascun indirizzo email; se non vuoi il mailto: all'interno degli indirizzi, il seguente codice VBA potrebbe esserti utile.

1. Tieni premuti i tasti Alt + F11 in Excel, e si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla la seguente macro nella finestra del Modulo.

Codice VBA: Convertire più indirizzi 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, premi il tasto F5 per eseguire il codice. Apparirà una finestra di dialogo che ti chiederà di selezionare l'intervallo dati da elaborare, vedi screenshot:

4. E poi clicca OK, tutti gli indirizzi email selezionati saranno stati convertiti in indirizzi con collegamenti ipertestuali, vedi screenshot: