Come copiare il collegamento ipertestuale solo da una cella all'altra in Excel?
Supponendo, ho un elenco di valori nella colonna A e ogni cella contiene un collegamento ipertestuale diverso, ora, voglio copiare solo i collegamenti ipertestuali senza testo su un'altra colonna E come mostrato nella seguente schermata. Potrebbe non esserci un modo diretto per risolvere questo lavoro in Excel, ma qui posso introdurre un codice VBA per gestirlo.
Copia il collegamento ipertestuale da una cella all'altra con il codice VBA
Copia il collegamento ipertestuale da una cella all'altra con il codice VBA
Per copiare solo gli indirizzi del collegamento ipertestuale senza il testo in altre celle, il seguente codice può farti un favore, per favore come questo:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: copia il collegamento ipertestuale solo da una cella all'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 Sub
3. E poi premere F5 tasto per eseguire questo codice, verrà visualizzata una finestra di dialogo per ricordarti di selezionare le celle di cui desideri copiare solo i collegamenti ipertestuali, vedi screenshot:
4. E poi clicca OK, quindi seleziona le celle in cui desideri incollare gli hyperlin solo in un'altra finestra di dialogo, vedi screenshot:
5. E gli indirizzi del collegamento ipertestuale sono stati copiati dalle celle originali alle celle specificate di cui hai bisogno, vedi screenshot:
Note:: Questo codice può anche aiutarti a copiare i collegamenti ipertestuali da un foglio a un altro come desideri.
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!
