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

Extraire 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.

2. Cliquez 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.

2. Cliquez 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.

Extraire les adresses réelles des hyperliens avec Kutools for Excel rapidement et facilement

Voici un outil pratique, appelé Kutools pour 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.

Si vous avez installé Kutools pour Excel, procédez comme suit:

1. Sélectionnez la plage contenant les hyperliens à extraire.

2. Cliquez 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: extraire 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?

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!

Lire la suite... Téléchargement Gratuit... Achat...