Hoe werkelijke adressen uit hyperlinks in Excel extraheren?

Stel dat je een bereik van cellen hebt die hyperlinks bevatten, en nu moet je de echte bestemming van de hyperlinks zien en ze uit de hyperlinks extraheren zoals in de volgende schermafbeelding te zien is. Zijn er eenvoudige manieren om dit probleem snel op te lossen? Dit artikel zal je begeleiden bij het extraheren van werkelijke adressen uit meerdere hyperlinks.

Werkelijke adressen uit hyperlinks extraheren met de functie Hyperlink bewerken

Werkelijke adressen uit hyperlinks extraheren met Kutools voor Excel snel en gemakkelijk

Werkelijke adressen uit hyperlinks extraheren met VBA-code

Werkelijke adressen uit hyperlinks extraheren met een door de gebruiker gedefinieerde functie

Werkelijke adressen uit hyperlinks extraheren met de functie Hyperlink bewerken

Hier kan de functie Hyperlink bewerken helpen om de onderliggende URL voor elk van deze hyperlinks te extraheren en dat werkelijke adres in een andere cel te plaatsen. Je kunt als volgt te werk gaan:

1. Selecteer de cel met hyperlink en klik met de rechtermuisknop, kies Hyperlink bewerken uit het contextmenu, zie schermafbeelding:

2. Er verschijnt een dialoogvenster Hyperlink bewerken, selecteer en kopieer (Ctrl+C) de volledige URL uit het veld Adres van het dialoogvenster.

3. Sluit vervolgens het dialoogvenster en plak het werkelijke adres in elke cel waar je het wilt.

Opmerking: Met deze methode kun je slechts één hyperlinkadres tegelijk extraheren, maar als je meerdere hyperlinks moet extraheren, moet je deze functie herhaaldelijk toepassen.

Werkelijke adressen uit hyperlinks extraheren met Kutools voor Excel snel en gemakkelijk

Hier is een handig hulpmiddel, genaamd Kutools voor Excel, met zijn functie Hyperlinks converteren, kun je snel de volgende bewerkingen uitvoeren:

• Werkelijke adressen uit hyperlinks extraheren;
• URL-tekst converteren naar klikbare hyperlinks.

Als je Kutools voor Excel hebt geïnstalleerd, doe dan als volgt:

1. Selecteer het bereik dat de hyperlinks bevat die moeten worden geëxtraheerd.

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

3. In de Hyperlinks converteren dialoogvenster, selecteer Hyperlinkadressen vervangen door celinhoud optie, en klik knop van Resultaatbereik om een cel te specificeren om het resultaat in te plaatsen.

4. Klik vervolgens op OK, de werkelijke adressen zijn geëxtraheerd uit de hyperlinks. Zie schermafbeelding:

Opmerking: Als je de werkelijke adressen in het originele bereik wilt plaatsen, vink dan Bronbereik converteren aan.

Download en probeer Kutools voor Excel Nu gratis uit!

Werkelijke adressen uit hyperlinks extraheren met VBA-code

Voor veel hyperlinks zal de bovenstaande methode tijdrovend en omslachtig zijn, dus de volgende VBA-code kan je helpen om snel meerdere adressen uit de hyperlinks tegelijk te extraheren.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3. Druk vervolgens op de F5-toets om de code uit te voeren, en er verschijnt een dialoogvenster waarin je de hyperlinks selecteert waarvan je de echte adressen wilt extraheren, zie schermafbeelding:

4. Klik vervolgens op OK, en de geselecteerde celinhoud is geconverteerd naar de echte hyperlinkadressen in het originele bereik. Zie schermafbeeldingen:

Werkelijke adressen uit hyperlinks extraheren met een door de gebruiker gedefinieerde functie

De volgende door de gebruiker gedefinieerde functie kan ook de werkelijke URL uit de hyperlinks extraheren.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3. Sla de code op en sluit het venster, selecteer een lege cel om deze formule =GetURL(A2) (A2 is de cel waar de hyperlink in staat), en druk op de Enter-toets. Je ziet dat het echte hyperlinkadres is geëxtraheerd.

Gerelateerd artikel:

Hoe URL-tekst naar een klikbare hyperlink in Excel converteren?