Hoppa till huvudinnehåll

Hur konverterar man webbadress till klickbar hyperlänk i Excel?

Om du antar att du har flera webbadresser i ditt kalkylblad, men de är inte länkade, och nu måste du konvertera alla icke-länkade webbadresser till klickbara hyperlänkar, som följande skärmdumpar visas. Naturligtvis kan du dubbelklicka på dem en efter en för att göra dem klickbara, men det är tidskrävande om det finns många webbadresser. Hur kunde du konvertera flera olänkade webbadresser till klickbara hyperlänkar automatiskt i Excel?


pil blå höger bubbla Konvertera webbadress till klickbar hyperlänk med VBA-kod

Det verkar inte finnas något annat effektivt sätt att lösa detta problem i Excel förutom att använda följande VBA-kod.

1. Välj url urlstext som du vill konvertera till klickbara hyperlänkar.

2. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

Sub ConvertToHyperlinks()
'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
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

4. Tryck sedan på F5 för att köra koden, en popup-dialogruta där du kan välja ett intervall och klicka sedan på OK, och de valda icke-länkade webbadresserna har konverterats till de klickbara hyperlänkarna. Se skärmdumpar:

2

pil blå höger bubbla Konvertera webbadress till klickbar hyperlänk med Kutools för Excel

Kanske är VBA-koden svår för dig, här kan jag presentera ett multifunktionellt verktyg för dig-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 klickbar hyperlänk
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 url urlstext som du vill konvertera till klickbara hyperlänkar.

2. Klicka Kutools > Länk > Konvertera hyperlänkar, se skärmdump:

3. I Konvertera hyperlänkar dialogrutan väljer du Cellinnehåll ersätter hyperlänkar adresser, och klicka doc-knapp1 knappen från Resultatintervall för att ange en cell för att placera resultatet.

4. Och klicka sedan på OK, har alla de valda länkarna med ren text konverterats till de klickbara hyperlänkarna. Se skärmdump:

Anmärkningar:

1. Om du vill placera de faktiska adresserna till det ursprungliga intervallet, kontrollera Konvertera källområdet.

2. Om hyperlänken är länkad till aktuellt dokument, kontrollera Hyperlänkar är en plats i detta dokument alternativ.

Klicka Konvertera hyperlänkar för att veta mer om den här funktionen.

Ladda ner och testa gratis Kutools för Excel nu!


pil blå höger bubbla   Demo: Konvertera webbadress till klickbar hyperlänk med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterad artikel:

Hur extraherar jag faktiska adresser från hyperlänkar i Excel?

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

kte-flik 201905


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!
Comments (17)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Дай бог здоровья, вам, вашим матерям и детям, первенца в честь автора назову
This comment was minimized by the moderator on the site
Muito bom, só uma dúvida, existe a possibilidade de deixar um intervalo fixo já na macro (sem precisar aparecer aquele pop-up pra selecionar o intervalo), tipo clico pra excutar a macro e ele pega o intervalo que já está configurado na macro e ativa os links, pulando a etapa de ter que clicar em ok e tals. Se puderem me ajudar com esse dúvida serei grato.
This comment was minimized by the moderator on the site
Hello, Tosetti

To solve your problem, please apply the below code: (First, you should select the hyperlink texts)

Sub ConvertToHyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
Set WorkRng = Application.Selection
For Each Rng In WorkRng
    Application.ActiveSheet.Hyperlinks.Add Rng, Rng.Value
Next
End Sub

Please try it, hope it can help you!
This comment was minimized by the moderator on the site
Oh crap.... it broke my Excel. By mistake I selected entire column and it forze for... ages!!
This comment was minimized by the moderator on the site
hi
when i click on the hyperlink .. it wont take to me to email page ( as an Outlook or Gmail) Please support
This comment was minimized by the moderator on the site
Hello, Babu,
May be the below article can help you for solving your problem, please view it:
https://www.extendoffice.com/documents/excel/3304-excel-convert-email-to-hyperlink.html

Hope it can help you!
This comment was minimized by the moderator on the site
I had to switch nearly 55,000 cells from plain text to hyperlinks. This helped me cut the time down from "the rest of my natural life" to five minutes. Thank you!
This comment was minimized by the moderator on the site
This is very helpful...Thanks
This comment was minimized by the moderator on the site
This is Great! Worked like a charm
This comment was minimized by the moderator on the site
Man! This is so awesome, I've spent so long trying to find an easy way and this took seconds! Works great!!!
This comment was minimized by the moderator on the site
Thanks a lot my friend! it worked! :lol:
This comment was minimized by the moderator on the site
The code almost works, but author has left a small copy-paste error. You need to remove "" from the first line, and "" from the last line, and then it will work. Cheers.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations