Come convertire più indirizzi e-mail in collegamenti ipertestuali in Excel?
Se si dispone di un elenco di indirizzi e-mail in testo normale in un foglio di lavoro e ora si desidera convertire questi indirizzi e-mail in collegamenti ipertestuali che è possibile inviare e-mail facendo clic sugli indirizzi. Naturalmente, puoi convertirli in indirizzi e-mail con collegamenti ipertestuali, ma questo metodo sarà noioso se sono necessari più indirizzi da convertire. In questo articolo, parlerò di alcuni buoni trucchi per affrontare questo compito.
Converti più indirizzi email in collegamenti ipertestuali con Formula
Converti più indirizzi e-mail in collegamenti ipertestuali con codice VBA
Converti più indirizzi email in collegamenti ipertestuali con Formula
Grazie alla collegamento ipertestuale è possibile convertire rapidamente gli indirizzi e-mail della colonna in indirizzi con collegamenti ipertestuali contemporaneamente.
1. Inserisci questa formula = collegamento ipertestuale ("mailto:" & A2) in una cella vuota in cui vuoi inserire il risultato, vedi screenshot:
2. Quindi trascina il quadratino di riempimento verso il basso sulle celle in cui desideri contenere questa formula e tutti gli indirizzi e-mail sono diventati collegamenti ipertestuali cliccabili come mostrato nella seguente schermata:
Converti più indirizzi e-mail in collegamenti ipertestuali con codice VBA
Come puoi vedere, utilizzando la formula sopra, verrà aggiunta una stringa “mailto:” davanti a ogni indirizzo email, se non vuoi il mailto: all'interno degli indirizzi, il seguente codice VBA potrebbe farti un favore.
1. Tieni premuto il Alt + F11 chiavi in Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla la seguente macro nel file Moduli Finestra.
Codice VBA: converti più indirizzi e-mail 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 F5 chiave per questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri utilizzare, vedi screenshot:
4. E poi clicca OK, tutti gli indirizzi e-mail selezionati sono stati convertiti negli indirizzi con collegamento ipertestuale, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!