Hoe snel alle hyperlinks in Excel weergeven?
Als we een werkblad gebruiken, maken we er misschien veel hyperlinks in en soms moeten we weten waar de teksten naar verwijzen. Als u ze een voor een klikt, zal het vervelend en tijdrovend zijn. Als we alle hyperlinks met teksten en hyperlinkadressen in een werkblad kunnen weergeven, kunnen we eenvoudig alle hyperlinks in Excel controleren.
Maak een lijst van alle geselecteerde hyperlinks met VBA-code
Extraheer alle daadwerkelijke adressen van hyperlinks met Kutools voor Excel
Maak een lijst van alle geselecteerde hyperlinks met VBA-code
1. Selecteer het bereik met de hyperlinks die u wilt weergeven.
2. Klikken Ontwikkelaar>Visual Basic, Een nieuw Microsoft Visual Basic voor applicaties venster wordt weergegeven, 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. Dan klikken knop om de code uit te voeren. En alle hyperlinks worden weergegeven in een nieuw werkblad met de naam Hyperlinklijst. Zie screenshot:
Extraheer alle daadwerkelijke adressen van hyperlinks met Kutools voor Excel
Met de Kutools for Excel's Hyperlinks converteren functie, kunt u snel de echte adressen uit de hyperlinks halen.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excel, doe dan als volgt :( Download nu Kutools voor Excel )
1. Selecteer de hyperlinks waarvan u de echte bestemmingen wilt extraheren.
2. Dan klikken Kutools > Link > Hyperlinks converteren, zie screenshot:
3. In de Hyperlinks converteren dialoogvenster, selecteer Hyperlinkadressen vervangen de celinhoud optie van de Type omzetten sectie en geef vervolgens een cel op waar u het resultaat onder het Resultaatbereik sectie, zie screenshot:
4. Dan klikken OK knop, alle echte adressen zijn uit de hyperlinks gehaald, zie screenshot:
Note: Converteer het bronbereik: de ge毛xtraheerde resultaten worden in het oorspronkelijke celbereik geplaatst als u deze optie aanvinkt.
Download nu Kutools voor Excel
Verwante Artikel:
Hoe snel alle hyperlinks in Excel verwijderen?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!