Hvordan udpakkes faktiske adresser fra hyperlinks i Excel?
Hvis du antager, at du har en række celler, der indeholder hyperlinks, og nu skal du se den virkelige destination for hyperlinks og udtrække dem fra hyperlinks som følgende vist skærmbillede. Er der nogen nemme måder at løse dette problem hurtigt? Denne artikel vil guide dig til at udtrække faktiske adresser fra flere hyperlinks.
Uddrag faktiske adresser fra hyperlinks med Rediger hyperlink-funktionen
Her, den Rediger hyperlink funktion kan hjælpe dig med at udtrække den underliggende URL til hver af disse hyperlinks og placere den aktuelle adresse i en anden celle. Du kan gøre som dette:
1. Vælg cellen med hyperlink, og højreklik, vælg fra genvejsmenuen Rediger hyperlink, se skærmbillede:
2. Og en Rediger hyperlink dialogboks vises, vælg og kopier (Ctrl + C) hele URL'en fra Adresse felt i dialogboksen.
3. Luk derefter dialogboksen, og indsæt den aktuelle adresse i den ønskede celle.
Bemærk: Med denne metode kan du kun udpakke en hyperlinkadresse hver gang, men hvis du har flere hyperlinks, der skal ekstraheres, skal du anvende denne funktion gentagne gange.
Uddrag faktiske adresser fra hyperlinks med VBA-kode
For mange hyperlinks vil ovenstående metode være kedelig og tidskrævende, så følgende VBA-kode kan hjælpe dig med hurtigt at udtrække flere adresser fra hyperlinks på én gang.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.
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. Tryk derefter på F5 nøgle til at køre koden, og der vises en dialogboks, hvor du kan vælge de hyperlinks, du vil udtrække de rigtige adresser, se skærmbillede:
4. Klik derefter på OK, og det valgte celleindhold er konverteret til de rigtige hyperlinkadresser i det oprindelige interval. Se skærmbilleder:
Uddrag faktiske adresser fra hyperlinks med User Definde-funktion
Følgende brugerdefinerede funktion kan også udtrække den aktuelle URl fra hyperlinks.
1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende kode i Modul vindue.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Gem koden, og luk vinduet, vælg en tom celle for at skrive denne formel = GetURL (A2) (A2 er cellen, som hyperlinket er i), og tryk på Indtast knap. Du kan se den rigtige hyperlinkadresse er udpakket.
Uddrag faktiske adresser fra hyperlinks med Kutools til Excel hurtigt og nemt
Her er et praktisk værktøj, kaldet Kutools til Excel, Med Konverter hyperlinks funktion, kan du hurtigt håndtere følgende handlinger:
- Uddrag faktiske adresser fra hyperlinks;
- Konverter url-tekst til klikbare hyperlinks.
Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Hvis du har installeret Kutools til Excelskal du gøre som følger:
1. Vælg det interval, der indeholder de hyperlinks, der skal ekstraheres.
2. Klik Kutools > Link > Konverter hyperlinks, se skærmbillede:
3. I Konverter hyperlinks dialogboksen, vælg Hyperlinks adresser erstatter celleindhold valgmulighed og klik knap fra Resultatinterval for at angive en celle, der skal placere resultatet.
4. Og klik derefter på OK, de faktiske adresser er blevet ekstraheret fra hyperlinks. Se skærmbillede:
Bemærk: Hvis du vil placere de faktiske adresser i det originale interval, skal du kontrollere Konverter kildeområde.
Klik Konverter hyperlinks at vide mere om denne funktion.
Download og gratis prøveversion Kutools til Excel nu!
Demo: Uddrag aktuelle adresser fra hyperlinks med Kutools til Excel
Relateret artikel:
Hvordan konverteres url-tekst til klikbart hyperlink i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!