Hoe daadwerkelijke adressen uit hyperlinks in Excel te extraheren?

Stel dat je een reeks cellen hebt die hyperlinks bevatten, en nu moet je de echte bestemming van de hyperlinks zien en ze uit de hyperlinks extraheren zoals in het volgende screenshot wordt getoond. Zijn er eenvoudige manieren om dit probleem snel op te lossen? Dit artikel zal u helpen om actuele adressen uit meerdere hyperlinks te extraheren.

Extraheer actuele adressen uit hyperlinks met de functie Hyperlink bewerken

Haal daadwerkelijke adressen uit hyperlinks met VBA-code

Haal daadwerkelijke adressen uit hyperlinks met de functie User Definde

Extraheer actuele adressen uit hyperlinks met Kutools voor Excel snel en gemakkelijk

Extraheer actuele adressen uit hyperlinks met de functie Hyperlink bewerken

Hier de Hyperlink bewerken functie kan u helpen de onderliggende URL voor elk van deze hyperlinks te extraheren en dat daadwerkelijke adres in een andere cel te plaatsen. U kunt als volgt doen:

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

2. En een Hyperlink bewerken dialoogvenster zal verschijnen, selecteer en kopieer (Ctrl + C) de volledige URL van het Adres veld van het dialoogvenster.

3. Sluit vervolgens het dialoogvenster en plak het werkelijke adres in elke gewenste cel.

Opmerking:: Met deze methode kunt u slechts één hyperlinkadres per keer extraheren, maar als u meerdere hyperlinks wilt extraheren, moet u deze functie herhaaldelijk toepassen.

Haal daadwerkelijke adressen uit hyperlinks met VBA-code

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

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen 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 F5 sleutel om de code uit te voeren, en er verschijnt een dialoogvenster waarin u de hyperlinks kunt selecteren waarvan u de echte adressen wilt extraheren, zie screenshot:

4. Dan klikken OK, en de geselecteerde celinhoud is geconverteerd naar de echte hyperlinkadressen in het oorspronkelijke bereik. Zie screenshots:

Haal daadwerkelijke adressen uit hyperlinks met de functie User Definde

De volgende door de gebruiker gedefinieerde functie kan ook de daadwerkelijke URl uit de hyperlinks halen.

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

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 te typen = GetURL (A2) (A2 is de cel waarin de hyperlink zich bevindt), en druk op Enter knop. U kunt zien dat het echte hyperlinkadres is geëxtraheerd.

Extraheer actuele adressen uit hyperlinks met Kutools voor Excel snel en gemakkelijk

Hier is een handig hulpmiddel, genaamd Kutools for Excel, Met Hyperlinks converteren functie, kunt u snel de volgende bewerkingen uitvoeren:

• Haal daadwerkelijke adressen uit hyperlinks;
• Converteer url-tekst naar klikbare hyperlinks.

Als je hebt geïnstalleerd Kutools for Excelgaat u als volgt te werk:

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

2. Klikken Kutools > Link > Hyperlinks converteren, zie screenshot:

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

4. En klik vervolgens op OKzijn de daadwerkelijke adressen uit de hyperlinks gehaald. Zie screenshot:

Opmerking:: Als u de werkelijke adressen in het oorspronkelijke bereik wilt plaatsen, controleer dan Converteer het bronbereik.

Klik Hyperlinks converteren voor meer informatie over deze functie.

Download en gratis proef Kutools voor Excel nu!

Demo: extraheer actuele adressen uit hyperlinks met Kutools voor Excel

Gerelateerd artikel:

Hoe url-tekst naar klikbare hyperlink in Excel te converteren?

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

• visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
• Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
• Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
• Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
• Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
• Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
• Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
• Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
• Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

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 elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...