Note: The other languages of the website are Google-translated. Back to English
Accedi Registrati

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

freccia blu freccia destra Converti più indirizzi email in collegamenti ipertestuali con Formula

Con la 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:

doc converte gli indirizzi in collegamenti ipertestuali 1

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:

doc converte gli indirizzi in collegamenti ipertestuali 2

freccia blu freccia destra 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 > Moduloe incolla la seguente macro nel file Modulo 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:

doc converte gli indirizzi in collegamenti ipertestuali 3

4. E poi clicca OK, tutti gli indirizzi e-mail selezionati sono stati convertiti negli indirizzi con collegamento ipertestuale, vedi screenshot:

doc converte gli indirizzi in collegamenti ipertestuali 4

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
fondo officetab
Commenti (7)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Mike Smith
Mike Smith
Questo commento è stato fatto dal moderatore sul sito
Non riesco a trovare la ricerca che converte le celle in collegamenti ipertestuali.
Rispondi
0
0
Festus
Festus
Questo commento è stato fatto dal moderatore sul sito
sei una star, ha funzionato perfettamente. Grazie mille
Rispondi
0
0
Katharine
Katharine
Questo commento è stato fatto dal moderatore sul sito
Sono in un ambiente MAC quindi non ho un tasto ALT. Qualche altra iea?
Rispondi
0
0
Rodger Moran
Rodger Moran     Katharine
Questo commento è stato fatto dal moderatore sul sito
L'equivalente del tasto ALT è il tasto comando (situato a sinistra del tasto Opzione).

Entrambi questi tasti si trovano a sinistra della barra spaziatrice.
Rispondi
Report
0
0
DL
DL
Questo commento è stato fatto dal moderatore sul sito
Funziona perfettamente in Excel 2003! Grazie mille!
Rispondi
0
0
kk.operator
kk.operator
Questo commento è stato fatto dal moderatore sul sito
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

Beispiel: test@test.de > http://www.test.de

Qualcuno mi può aiutare?
Rispondi
0
0
skyyang
skyyang     kk.operator
Questo commento è stato fatto dal moderatore sul sito
Ciao, kk.operator

Per risolvere il tuo problema, applica il seguente codice:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Per favore, prova, spero che possa aiutarti!
Rispondi
Report
0
0
Non ci sono ancora commenti pubblicati qui

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL