Comment lister rapidement tous les hyperliens dans Excel?
Lorsque nous utilisons une feuille de calcul, nous y créons peut-être de nombreux hyperliens, et parfois nous avons besoin de savoir où les textes renvoient. Si vous cliquez dessus un par un, cela sera fastidieux et prend du temps. Si nous pouvons lister tous les hyperliens avec des adresses de textes et d'hyperliens dans une feuille de calcul, il nous sera facile de vérifier tous les hyperliens dans Excel.
Lister tous les hyperliens sélectionnés avec le code VBA
Extrayez toutes les adresses réelles des hyperliens avec Kutools for Excel
Lister tous les hyperliens sélectionnés avec le code VBA
1. Sélectionnez la plage contenant les hyperliens que vous souhaitez lister.
2Cliquez sur Développeur >Visual Basic, Un nouveau Microsoft Visual Basic pour les applications la fenêtre s'affichera, cliquez sur insérer>Moduleet entrez le code suivant dans le module:
Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub
3. Puis clique 
bouton pour exécuter le code. Et tous les hyperliens seront affichés dans une nouvelle feuille de calcul appelée Liste des hyperliens. Voir la capture d'écran:
Extrayez toutes les adresses réelles des hyperliens avec Kutools for Excel
Avec la Kutools for Excel's Convertir les hyperliens fonctionnalité, vous pouvez extraire rapidement les adresses réelles des hyperliens.
| Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Après l'installation de Kutools for Excel, veuillez procéder comme suit :( Téléchargez gratuitement Kutools pour Excel maintenant )
1. Sélectionnez les hyperliens dont vous souhaitez extraire les destinations réelles.
2. Puis clique 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 de Convertir le type section, puis spécifiez une cellule dans laquelle vous souhaitez placer le résultat sous le Gamme de résultats section, voir capture d'écran:
4. Puis clique OK bouton, toutes les adresses réelles ont été extraites des hyperliens, voir capture d'écran:
Notes: Convertir la plage source: les résultats extraits seront situés sur la plage de cellules d'origine si vous cochez cette option.
Téléchargez gratuitement Kutools pour Excel maintenant
Article connexe:
Comment supprimer rapidement tous les hyperliens 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!
