Comment copier un lien hypertexte uniquement 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 veux copier uniquement les liens hypertexte sans texte vers une autre colonne E comme illustré ci-dessous. Il n'y a peut-être pas de moyen direct de résoudre ce travail dans Excel, mais ici, je peux introduire un code VBA pour le gérer.
Copiez le lien hypertexte d'une cellule à une autre avec le code VBA
Copiez le lien hypertexte d'une cellule à une autre avec le code VBA
Pour copier uniquement les adresses de lien hypertexte sans le texte dans d'autres cellules, le code suivant peut vous rendre service, veuillez comme ceci:
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: copier le lien hypertexte uniquement 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 dont vous souhaitez copier les hyperliens uniquement, voir capture d'écran:
4. Et puis cliquez OK, puis sélectionnez les cellules que vous souhaitez coller les hyperlins uniquement dans une autre boîte de dialogue, voir capture d'écran:
5. Et les adresses de lien hypertexte ont été copiées des cellules d'origine vers les cellules spécifiées selon vos besoins, voir capture d'écran:
Notes: Ce code peut également vous aider à copier les hyperliens d'une feuille vers une autre feuille comme vous le souhaitez.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!