Note: The other languages of the website are Google-translated. Back to English

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.


pijl blauw rechts bel 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.


pijl blauw rechts bel 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:


pijl blauw rechts bel 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.


pijl blauw rechts bel 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.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen.

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 doc-knop1 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!


pijl blauw rechts bel Demo: extraheer actuele adressen uit hyperlinks met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

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.
kte tabblad 201905

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!
officetab onderkant
Comments (42)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hartelijk bedankt. het heeft me echt geholpen
Deze opmerking is gemaakt door de moderator op de site
hartelijk bedankt!!! :D
Deze opmerking is gemaakt door de moderator op de site
Dit heeft me net gered! Bedankt
Deze opmerking is gemaakt door de moderator op de site
thnx je hebt mijn werk zo gemakkelijk gemaakt
Deze opmerking is gemaakt door de moderator op de site
Ontzettend bedankt!
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt, dit heeft me gered en me er goed uit laten zien. 8)
Deze opmerking is gemaakt door de moderator op de site
Je bent de beste, zo makkelijk te volgen!
Deze opmerking is gemaakt door de moderator op de site
Bedankt vriend. Het werkt echt in seconden.
Deze opmerking is gemaakt door de moderator op de site
Hartelijk bedankt. het heeft me echt geholpen
Deze opmerking is gemaakt door de moderator op de site
Hartelijk bedankt! Heel handig en toch simpel en duidelijk. Precies zoals Albert bedoelde :roll:
Deze opmerking is gemaakt door de moderator op de site
Super! Zo makkelijk. Bedankt!
Deze opmerking is gemaakt door de moderator op de site
heel erg bedankt. zoals iedereen hier. dit is erg handig en gemakkelijk.
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt :lol: ik heb de VBA-methode gebruikt en het werkte als een tierelier in Excel 365 op een Windows 8.1-besturingssysteem
Deze opmerking is gemaakt door de moderator op de site
Dit is de allereerste op macro gebaseerde Excel-tip die voor mij werkte. Heel erg bedankt voor het verbeteren van het leven van Excel-dummies.
Deze opmerking is gemaakt door de moderator op de site
bedankt dat je me 15 minuten hebt bespaard
Deze opmerking is gemaakt door de moderator op de site
Fantastisch! mijn werk teruggebracht tot minder dan een minuut.
Deze opmerking is gemaakt door de moderator op de site
Dit heeft me een hoop tijd bespaard! Ik heb 500 profiel-ID's geëxtraheerd uit 500+ namen die aan hun profielen zijn gekoppeld. Deze code werkte buitengewoon goed en was gemakkelijk te volgen. Hartelijk bedankt!
Deze opmerking is gemaakt door de moderator op de site
Om de een of andere reden werkt dit bij mij niet. Ik heb de gedefinieerde functie gemaakt zoals je hebt beschreven, maar het doet niets :\ Ik wil het ook samenvoegen met de Hyperlink-functie, zoals: =HYPERLINK(=getURL(A1), [A1]) Zodat de uiteindelijke resultaat zal de URL van A1 kopiëren en deze weergeven als de tekstreeks van A1 (dwz kopieer A1 gewoon naar een andere cel, inclusief zowel de tekst als de hyperlink. Een eenvoudig iets dat Excel om de een of andere reden niet lijkt te kunnen doen...).
Deze opmerking is gemaakt door de moderator op de site
Hartelijk bedankt! Bespaarde me veel tijd om 800+ van deze cellen te moeten doen!
Deze opmerking is gemaakt door de moderator op de site
Heel mooi hulpmiddel! Ik heb 16K+ links geconverteerd. Tool werkte snel en foutloos.
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties