Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

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 voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jon · 4 months ago
    Thank you, the VBA code worked like a charm :)
  • To post as a guest, your comment is unpublished.
    Kristy Neckowicz · 8 months ago
    Thank you for the tip to Extract Actual Addresses From Hyperlinks in Excel With VBA Code. It was exactly what I needed! 
  • To post as a guest, your comment is unpublished.
    Emily · 10 months ago
    How does this apply to Excel on Mac?
  • To post as a guest, your comment is unpublished.
    dduluk · 11 months ago
    I think it's nice to have an option that doesn't require macros since so many haven't used VBA at all.
  • To post as a guest, your comment is unpublished.
    dduluk · 11 months ago
    If you're not comfortable with VBA, the key step to getting this done is the FORMULATEXT() formula that is included with excel. For example, if cell A1 has this...

    =HYPERLINK("https://www.google.com","Google Homepage")

    ...then it would display "Google Homepage" but you want to extract "https://www.google.com". You can use =FORMULATEXT(A1) to get the output of "=HYPERLINK("https://google.com","Google Homepage")".

    Then you use the find and mid functions to find the double quotes (which is CHAR(34)) and pull the string between the first two double quotes. Nesting it all together, you can use this formula to get the URL without any VBA required...

    =MID(FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1,FIND(CHAR(34),FORMULATEXT(A1),FIND(CHAR(34),FORMULATEXT(A1))+1)-FIND(CHAR(34),FORMULATEXT(A1))-1)
  • To post as a guest, your comment is unpublished.
    Stardust2150 · 11 months ago
    Thankyou for an easy method to extract the complete URL from a weblink. I looked at other methods that were too nebulous but yours was straightforward and easy. Thanks.
  • To post as a guest, your comment is unpublished.
    Thankful · 1 years ago
    Thanks for the " Extract actual addresses from hyperlinks with VBA code" VBA and clear instructions. It worked great for me.
  • To post as a guest, your comment is unpublished.
    apodsim@gmail.com · 3 years ago
    Trying to save time creating multiple Hyperlinks and hoped this program would help with the task. I have combined several columns containing text into a single cell and then used the Edit/Link to create a working URL. Is there a tool to modify the URL to display text characters of the URL.
  • To post as a guest, your comment is unpublished.
    sujan9991@gmail.com · 3 years ago
    Hi, How to do the same in google sheets
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      hello, sujan,
      To extract all real addresses from hyperlinks in Google sheets, the following script code can help you:

      function linkURL(reference) {
      var sheet = SpreadsheetApp.getActiveSheet();
      var formula = SpreadsheetApp.getActiveRange().getFormula();
      var args = formula.match(/=\w+\((.*)\)/i);
      try {
      var range = sheet.getRange(args[1]);
      }
      catch(e) {
      throw new Error(args[1] + ' is not a valid range');
      }
      var formulas = range.getFormulas();
      var output = [];
      for (var i = 0; i < formulas.length; i++) {
      var row = [];
      for (var j = 0; j < formulas[0].length; j++) {
      var url = formulas[i][j].match(/=hyperlink\("([^"]+)"/i);
      row.push(url ? url[1] : '');
      }
      output.push(row);
      }
      return output
      }

      After copying and pasting the above code, go back to your sheet, and apply this formula:=linkURL(A2).
      Please try it, hope it can help you, thank you!
      • To post as a guest, your comment is unpublished.
        sujan9991@gmail.com · 3 years ago
        Hi,thank you for reply. I'm getting following error. and LinkUrl is not detecting as function
        • To post as a guest, your comment is unpublished.
          skyyang · 3 years ago
          Hi, sujan,
          The script code is worked correctly in my google sheet, see screenshot:
          • To post as a guest, your comment is unpublished.
            sujan9991@gmail.com · 3 years ago
            Hi Can you share with me a sample link please. The function is not detecting in my file
            • To post as a guest, your comment is unpublished.
              skyyang · 3 years ago
              Hi,
              Can you give your email account, and i will share the file with you!
              Thank you!
              • To post as a guest, your comment is unpublished.
                sujan9991@gmail.com · 3 years ago
                Sujan9991@gmail.com
                • To post as a guest, your comment is unpublished.
                  skyyang · 3 years ago
                  Sujan, I have shared the file with you, please check.
  • To post as a guest, your comment is unpublished.
    Victor Nieto · 4 years ago
    Thanks!!!!!
  • To post as a guest, your comment is unpublished.
    Neeks · 4 years ago
    Ah, amazing! Thank you!
  • To post as a guest, your comment is unpublished.
    sei · 4 years ago
    pretty..and nice...and fantabulouslyfntastikittilybumpershumperazardubiliousipaparazziastically yummy :P
    huh!
  • To post as a guest, your comment is unpublished.
    Stephanie · 4 years ago
    You have no idea how much time you saved me!!!
    Thank you so much!!!!!!!!!!!!!!!!!!!
  • To post as a guest, your comment is unpublished.
    Seocheckout.com · 6 years ago
    Very nice tool! I converted 16K+ links. Tool worked fast and flawless.
  • To post as a guest, your comment is unpublished.
    Alex T · 6 years ago
    Thanks so much!


    Saved me big time of having to do 800+ of these cells!
  • To post as a guest, your comment is unpublished.
    Nimrod · 6 years ago
    For some reason this doesn't work for me.
    I created the defined function just as you described, but it doesn't do anything :\
    I also want to merge it with the Hyperlink function, like so:
    =HYPERLINK(=getURL(A1), [A1])

    So that the final result will copy A1's URL and display it as A1's text string (i.e. just copy A1 to another cell, including both its text and hyperlink. A simple thing which Excel doesn't seem to be able to do for some reason...).
  • To post as a guest, your comment is unpublished.
    Zach Solomon-Beloin · 6 years ago
    This saved me a ton of time! I extracted 500 profile IDs from 500+ names linked to their profiles. This code worked extremely well and was easy to follow. Thanks so much!
  • To post as a guest, your comment is unpublished.
    AJITA · 6 years ago
    Superb! reduced my work to less than a minute.
  • To post as a guest, your comment is unpublished.
    Tj · 7 years ago
    thanks for saving me 15mins
  • To post as a guest, your comment is unpublished.
    Arun Kumar · 7 years ago
    This is the first ever macro based excel tip that worked for me. Thank you very much for making the lives of excel dummies better.
  • To post as a guest, your comment is unpublished.
    Monica · 7 years ago
    Thank you so much :lol: I used the VBA method and it worked like a charm in Excel 365 on a Windows 8.1 OS
  • To post as a guest, your comment is unpublished.
    chris · 7 years ago
    thanks a ton. like everyone else here. this is very helpful and easy.
  • To post as a guest, your comment is unpublished.
    Eva · 7 years ago
    Super! So easy. Thanks!
  • To post as a guest, your comment is unpublished.
    Tzally · 7 years ago
    Thanks a lot! Very helpful yet simple and clear. Just as Albert meant :roll:
  • To post as a guest, your comment is unpublished.
    JC · 7 years ago
    Thankyou so much. it really helped me
  • To post as a guest, your comment is unpublished.
    Thank You · 7 years ago
    Thanks buddy.It really work in seconds.
  • To post as a guest, your comment is unpublished.
    fab · 7 years ago
    You are the best, so easy to follow!
  • To post as a guest, your comment is unpublished.
    Awesome · 7 years ago
    Thank you so much this saved my ass and make me look good.
    8)
  • To post as a guest, your comment is unpublished.
    Respected · 7 years ago
    Thank You SO SO much!
  • To post as a guest, your comment is unpublished.
    vish · 7 years ago
    thnx u made my work so easy
  • To post as a guest, your comment is unpublished.
    PO · 7 years ago
    This just saved me! Thanks
  • To post as a guest, your comment is unpublished.
    mari · 7 years ago
    thanks so much!!! :D
  • To post as a guest, your comment is unpublished.
    bla bla · 8 years ago
    Thankyou so much. it really helped me