Comment extraire des adresses réelles d'hyperliens dans Excel?
Supposons que vous ayez une plage de cellules contenant des hyperliens et que vous deviez maintenant voir la destination réelle des hyperliens et les extraire des hyperliens comme illustré ci-dessous. Existe-t-il des moyens simples de résoudre rapidement ce problème? Cet article vous guidera pour extraire les adresses réelles de plusieurs hyperliens.
Extraire les adresses réelles des hyperliens avec la fonction Modifier l'hyperlien
Extraire les adresses réelles des hyperliens avec le code VBA
Extraire les adresses réelles des hyperliens avec la fonction User Definde
Extrayez les adresses réelles des hyperliens avec Kutools for Excel rapidement et facilement
Extraire les adresses réelles des hyperliens avec la fonction Modifier l'hyperlien
Ici le Modifier l'hyperlien peut vous aider à extraire l'URL sous-jacente pour chacun de ces hyperliens et à placer cette adresse réelle dans une cellule différente. Vous pouvez faire comme ceci:
1. Sélectionnez la cellule avec lien hypertexte et cliquez avec le bouton droit, dans le menu contextuel, choisissez Modifier l'hyperlien, voir capture d'écran:
2. Et un Modifier l'hyperlien boîte de dialogue apparaîtra, sélectionnez et copiez (Ctrl + C) l'URL entière du Adresse champ de la boîte de dialogue.
3. Fermez ensuite la boîte de dialogue et collez l'adresse réelle dans la cellule de votre choix.
Notes: Avec cette méthode, vous ne pouvez extraire qu'une seule adresse d'hyperlien à chaque fois, mais si vous avez plusieurs hyperliens à extraire, vous devez appliquer cette fonction à plusieurs reprises.
Extraire les adresses réelles des hyperliens avec le code VBA
Pour de nombreux hyperliens, la méthode ci-dessus sera fastidieuse et prend du temps, de sorte que le code VBA suivant peut vous aider à extraire rapidement plusieurs adresses des hyperliens à la fois.
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 la fenêtre Module.
Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
If Rng.Hyperlinks.Count > 0 Then
Rng.Value = Rng.Hyperlinks.Item(1).Address
End If
Next
End Sub
3. Puis appuyez F5 clé pour exécuter le code, et une boîte de dialogue apparaît pour vous permettre de sélectionner les liens hypertexte que vous souhaitez extraire les adresses réelles, voir capture d'écran:
4. Puis clique OK, et le contenu de la cellule sélectionnée a été converti en adresses de lien hypertexte réelles dans la plage d'origine. Voir les captures d'écran:
Extraire les adresses réelles des hyperliens avec la fonction User Definde
La fonction définie par l'utilisateur suivante peut également extraire l'URL réelle des hyperliens.
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 Fenêtre du module.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Enregistrez le code et fermez la fenêtre, sélectionnez une cellule vide pour taper cette formule = GetURL (A2) (A2 est la cellule dans laquelle se trouve le lien hypertexte), et appuyez sur Entrer bouton. Vous pouvez voir que la véritable adresse du lien hypertexte est extraite.
Extrayez les adresses réelles des hyperliens avec Kutools for Excel rapidement et facilement
Voici un outil pratique, appelé Kutools for Excel, Avec son Convertir les hyperliens fonctionnalité, vous pouvez rapidement traiter les opérations suivantes:
- Extraire les adresses réelles des hyperliens;
- Convertir le texte de l'URL en hyperliens cliquables.
Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Si vous avez installé Kutools for Excel, procédez comme suit:
1. Sélectionnez la plage contenant les hyperliens à extraire.
2Cliquez sur Kutools > Lien > Convertir les hyperliens, voir capture d'écran:
3. Dans le Convertir les hyperliens boîte de dialogue, sélectionnez Les adresses des hyperliens remplacent le contenu des cellules option, et cliquez bouton de Gamme de résultats pour spécifier une cellule pour mettre le résultat.
4. Et puis cliquez OK, les adresses réelles ont été extraites des hyperliens. Voir la capture d'écran:
Notes: Si vous souhaitez mettre les adresses réelles dans la plage d'origine, veuillez vérifier Convertir la plage source.
Cliquez Convertir les hyperliens pour en savoir plus sur cette fonctionnalité.
Téléchargez et essayez gratuitement Kutools for Excel Now!
Démo : extrayez les adresses réelles des hyperliens avec Kutools for Excel
Article connexe:
Comment convertir le texte d'une URL en lien hypertexte cliquable dans Excel?
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!