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
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.
Note: 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.
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 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:
Note: 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?
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!