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.