Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

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

Supposons, j'ai une liste de valeurs dans la colonne A et chaque cellule contient un lien hypertexte différent, maintenant, je veux copier uniquement les liens hypertexte sans texte à une autre colonne E comme suivant capture d'écran montré. Peut-être qu'il n'y a pas de moyen direct pour résoudre ce travail dans Excel, mais ici, je peux introduire un code VBA pour y faire face.

doc lien hypertexte vers une autre cellule 1

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


flèche bleue droite bulle Copier le lien hypertexte d'une cellule à l'autre avec le code VBA

Pour copier uniquement les adresses de lien hypertexte sans le texte à d'autres cellules, le code suivant peut vous faire une faveur, s'il vous plaît comme ceci:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: copier 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. Et puis appuyez sur F5 clé pour exécuter ce code, une boîte de dialogue apparaîtra pour vous rappeler de sélectionner les cellules que vous souhaitez copier les liens hypertexte seulement, voir capture d'écran:

doc lien hypertexte vers une autre cellule 02

4. Et puis cliquez OK, puis sélectionnez les cellules que vous souhaitez coller les hyperliens uniquement dans une autre boîte de dialogue, voir capture d'écran:

doc lien hypertexte vers une autre cellule 03

5. Et les adresses de lien hypertexte ont été copiées des cellules originales aux cellules spécifiées comme vous avez besoin, voir capture d'écran:

doc lien hypertexte vers une autre cellule 04

Note: Ce code peut également vous aider à copier les liens hypertexte d'une feuille à une autre feuille comme vous le souhaitez.



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    iii · 17 days ago
    Doesn't work.
  • To post as a guest, your comment is unpublished.
    Liz Melbin Tejada · 4 months ago
    Love it. Thank you so muchoooo.
    Love From Dominican Republic :)
  • To post as a guest, your comment is unpublished.
    Passing Stranger · 10 months ago
    Doesn't work.
  • To post as a guest, your comment is unpublished.
    eunice · 1 years ago
    hello.. what if i want to copy the hyperlink through vlookup? i already have the formula but when i click the the hyperlink it "cannot open specied file" will appear.

    Please help me
  • To post as a guest, your comment is unpublished.
    Arpit · 1 years ago
    Hi, what if I want to copy my hyperlink from sheet A cell A5 to Sheet B cell A5?
    • To post as a guest, your comment is unpublished.
      skyyang · 1 years ago
      Hello, Arpit:

      I have updated the VBA code, now, you can apply it in two worksheets as you need. Please try it, hope it can help you!
      • To post as a guest, your comment is unpublished.
        jprasad · 1 years ago
        I want to copy links in several sheets of one file to another file