Come si copia un collegamento ipertestuale da una cella a un'altra in Excel?
Supponiamo di avere un elenco di valori nella colonna A, con ogni cella contenente un collegamento ipertestuale diverso. Ora si desidera copiare **solo i collegamenti ipertestuali**, senza il testo associato, nella colonna E, come illustrato nell’immagine seguente. Anche se Excel non offre un metodo diretto per eseguire questa operazione, è possibile risolvere il problema utilizzando un semplice codice VBA.
Copia collegamento ipertestuale da una cella a un'altra con codice VBA
Copia collegamento ipertestuale da una cella a un'altra con codice VBA
Per copiare soltanto i Indirizzo del collegamento ipertestuale senza il testo in altre celle, il seguente codice può esserti utile; procedi come segue:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il seguente codice nella finestra del Modulo.
Codice VBA: Copia collegamento ipertestuale solo da una cella a un'altra:
Sub CopyHyperlinks()
'Uodateby Extendoffice
Dim xSRg As Range
Dim xDRg As Range
Dim I As Integer
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xSRg = Application.InputBox("Please select the original range you want to copy hyperlinks:", "KuTools For Excel", xAddress, , , , , 8)
If xSRg Is Nothing Then Exit Sub
Set xDRg = Application.InputBox("Please select the new range you want to paste the hyperlinks only", "KuTools For Excel", , , , , , 8)
If xDRg Is Nothing Then Exit Sub
Set xDRg = xDRg(1)
For I = 1 To xSRg.Count
If xSRg(I) <> "" And xDRg.Offset(I - 1) <> "" Then
If xSRg(I).Hyperlinks.Count = 1 Then
xDRg(I).Hyperlinks.Add xDRg(I), xSRg(I).Hyperlinks(1).Address
End If
End If
Next
End Sub3. Premi quindi il tasto F5 per eseguire questo codice: apparirà una finestra di dialogo che ti chiederà di selezionare le celle da cui desideri copiare solo i collegamenti ipertestuali. Vedi immagine:
4. Fai quindi clic su OK, quindi, in un'altra finestra di dialogo, seleziona le celle in cui desideri incollare solo i collegamenti ipertestuali (vedi immagine):
5. Gli indirizzi dei collegamenti ipertestuali sono stati copiati dalle celle originali alle celle specificate in base alle tue esigenze, vedi immagine:
Nota: Questo codice ti permette anche di copiare i collegamenti ipertestuali da un foglio all’altro, esattamente come desideri.
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