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 Sub3. 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.
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Gerelateerd artikel:
Hoe verwijder ik snel alle hyperlinks in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen