Come copiare solo il collegamento ipertestuale da una cella all'altra in Excel?

Supponiamo di avere un elenco di valori nella colonna A e che ogni cella contenga un collegamento ipertestuale diverso. Ora voglio copiare solo i collegamenti ipertestuali, senza il testo, in un'altra colonna E, come mostrato nello screenshot seguente. Forse non c'è un modo diretto per risolvere questo problema 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 dei collegamenti ipertestuali senza il testo in altre celle, il seguente codice può esserti utile, procedi in questo modo:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

Codice VBA: copia solo il collegamento ipertestuale 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. Quindi premi il tasto F5 per eseguire questo codice; apparirà una finestra di dialogo che ti ricorderà di selezionare le celle da cui vuoi copiare solo i collegamenti ipertestuali, vedi screenshot:

4. Poi clicca OK, quindi seleziona le celle in cui vuoi incollare solo i collegamenti ipertestuali in un'altra finestra di dialogo, vedi screenshot:

5. Gli indirizzi dei collegamenti ipertestuali sono stati copiati dalle celle originali alle celle specificate secondo necessità, vedi screenshot:

Nota: Questo codice può anche aiutarti a copiare i collegamenti ipertestuali da un foglio di lavoro a un altro secondo necessità.