Hoe kan ik snel alle hyperlinks in Excel weergeven?

Wanneer we een werkblad gebruiken, maken we misschien veel hyperlinks aan, en soms moeten we weten waarnaar de teksten linken. Als je ze één voor één aanklikt, is dat tijdrovend en vermoeiend. Als we alle hyperlinks met bijbehorende tekst en hyperlinkadressen in een werkblad kunnen weergeven, wordt het gemakkelijk om alle hyperlinks in Excel te controleren.

Alle geselecteerde hyperlinks weergeven met VBA-code

Alle werkelijke adressen uit hyperlinks extraheren met Kutools voor Excel

Alle geselecteerde hyperlinks weergeven met VBA-code

1. Selecteer het bereik dat de hyperlinks bevat die u wilt weergeven.

2. Klik op Ontwikkelaar > Visual Basic, er verschijnt een nieuw Microsoft Visual Basic for Applications-venster. Klik op Invoegen > Module en voer de volgende code in de Module in:

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. Klik vervolgens op om de code uit te voeren. Alle hyperlinks worden weergegeven in een nieuw werkblad genaamd Hyperlink Lijst. Zie onderstaande schermafbeelding:

Alle werkelijke adressen uit hyperlinks extraheren met Kutools voor Excel

Met de functie Hyperlinks converteren van Kutools voor Excel kunt u snel de werkelijke adressen uit de hyperlinks extraheren.

1. Selecteer de hyperlinks waarvan u de echte bestemmingen wilt extraheren.

2. Klik vervolgens op Kutools > Koppeling > Hyperlinks converteren, zie onderstaande schermafbeelding:

3. Selecteer in het dialoogvenster Hyperlinks converteren de optie Hyperlinkadressen converteren naar celinhoud in de sectie Conversietype, en specificeer vervolgens een cel waar u het resultaat wilt plaatsen onder de sectie Resultaatbereik, zie onderstaande schermafbeelding:

4. Klik vervolgens op de knop OK, alle echte adressen zijn geëxtraheerd uit de hyperlinks, zie onderstaande schermafbeelding:

Opmerking: Bronbereik converteren: de geëxtraheerde resultaten worden op het oorspronkelijke celbereik geplaatst als u deze optie aanvinkt.

Gerelateerd artikel:

Hoe verwijder ik snel alle hyperlinks in Excel?