Hur extraherar jag faktiska adresser från hyperlänkar i Excel?
Om du antar att du har ett antal celler som innehåller hyperlänkar, och nu måste du se hyperlänkarnas verkliga mål och extrahera dem från hyperlänkarna enligt följande skärmdump. Finns det några enkla sätt att lösa detta problem snabbt? Den här artikeln hjälper dig att extrahera faktiska adresser från flera hyperlänkar.
Extrahera faktiska adresser från hyperlänkar med funktionen Redigera hyperlänk
Här, den Redigera hyperlänk -funktionen kan hjälpa dig att extrahera den underliggande webbadressen för var och en av dessa hyperlänkar och placera den faktiska adressen i en annan cell. Du kan göra så här:
1. Markera cellen med hyperlänk och högerklicka, välj från snabbmenyn Redigera hyperlänk, se skärmdump:
2. Och en Redigera hyperlänk dialogrutan visas, välj och kopiera (Ctrl + C) hela webbadressen från Adress fältet i dialogrutan.
3. Stäng sedan dialogrutan och klistra in den faktiska adressen i vilken cell du vill.
Anmärkningar: Med den här metoden kan du bara extrahera en hyperlänkadress varje gång, men om du har flera hyperlänkar måste extraheras måste du använda den här funktionen upprepade gånger.
Extrahera faktiska adresser från hyperlänkar med VBA-kod
För många hyperlänkar kommer metoden ovan att vara tråkig och tidskrävande, så följande VBA-kod kan hjälpa dig att snabbt extrahera flera adresser från hyperlänkarna på en gång.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.
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 Sub3. Tryck sedan på F5 nyckel för att köra koden, och en dialog dyker upp för dig att välja de hyperlänkar som du vill extrahera de riktiga adresserna, se skärmdump:
4. Klicka sedan OKoch det valda cellinnehållet har konverterats till de riktiga hyperlänkadresserna i det ursprungliga intervallet. Se skärmdumpar:
 |
 |
 |
Extrahera faktiska adresser från hyperlänkar med User Definde Function
Följande användardefinierade funktion kan också extrahera den faktiska URl från hyperlänkarna.
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.
Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
GetURL = pWorkRng.Hyperlinks(1).Address
End Function
3. Spara koden och stäng fönstret, välj en tom cell för att skriva denna formel = GetURL (A2) (A2 är cellen som hyperlänken finns i) och tryck på ange knapp. Du kan se den verkliga hyperlänkadressen extraheras.
Extrahera faktiska adresser från hyperlänkar med Kutools för Excel snabbt och enkelt
Här är ett praktiskt verktyg, kallat Kutools för Excel, med dess Konvertera hyperlänkar funktion kan du snabbt hantera följande åtgärder:
- Extrahera faktiska adresser från hyperlänkar;
- Konvertera webbadress till klickbara hyperlänkar.
| Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
Om du har installerat Kutools för Excel, gör så här:
1. Välj det intervall som innehåller hyperlänkar som behöver extraheras.
2. Klicka Kutools > Länk > Konvertera hyperlänkar, se skärmdump:
3. I Konvertera hyperlänkar dialogrutan väljer du Hyperlänkar adresser ersätter cellinnehåll alternativet och klicka på 
knappen från Resultatintervall för att ange en cell för att placera resultatet.
4. Och klicka sedan på OKhar de faktiska adresserna extraherats från hyperlänkarna. Se skärmdump:
Anmärkningar: Om du vill lägga till de faktiska adresserna till det ursprungliga intervallet, vänligen kontrollera Konvertera källområdet.
Klicka Konvertera hyperlänkar för att veta mer om den här funktionen.
Ladda ner och testa gratis Kutools för Excel nu!
Demo: Extrahera faktiska adresser från hyperlänkar med Kutools för Excel
Relaterad artikel:
Hur konverterar man webbadress till klickbar hyperlänk i Excel?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
