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

Le Kutools for Excel's Convertir les hyperliens fonctionnalité, vous pouvez extraire rapidement les adresses réelles des hyperliens.

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?