Comment copier uniquement un lien hypertexte d'une cellule à une autre dans Excel ?

Supposons que j'ai une liste de valeurs dans la colonne A et que chaque cellule contient un lien hypertexte différent. Maintenant, je souhaite copier uniquement les liens hypertexte sans le texte vers une autre colonne E, comme le montre la capture d'écran suivante. Il se peut qu'il n'y ait pas de solution directe pour accomplir cette tâche dans Excel, mais ici, je peux vous présenter un code VBA pour y parvenir.

Copier un lien hypertexte d'une cellule à une autre avec un code VBA

Copier un lien hypertexte d'une cellule à une autre avec un code VBA

Pour copier uniquement les adresses des liens hypertexte sans le texte vers d'autres cellules, le code suivant peut vous aider, veuillez procéder comme suit :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code suivant dans la fenêtre du Module.

Code VBA : copier uniquement un lien hypertexte d'une cellule à une autre :

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. Appuyez ensuite sur la touche F5 pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les cellules dont vous souhaitez copier uniquement les liens hypertexte, voir capture d'écran :

4. Cliquez ensuite sur OK, puis sélectionnez les cellules où vous souhaitez coller uniquement les liens hypertexte dans une autre boîte de dialogue, voir capture d'écran :

5. Les adresses des liens hypertexte ont été copiées des cellules d'origine vers les cellules spécifiées selon vos besoins, voir capture d'écran :

Remarque : Ce code peut également vous aider à copier les liens hypertexte d'une feuille à une autre selon vos besoins.