Hoppa till huvudinnehåll

Hur ändrar jag flera hyperlänkvägar samtidigt i Excel?

För något ändamål kan du skapa flera hyperlänkar för dina data i kalkylbladet, och alla hyperlänkar är länkade till samma filsökväg eller adress, men nu måste du ersätta den här hyperlänkvägen med en annan adress åt gången. Att ändra sökvägen för hyperlänkar individuellt kan slösa mycket tid, finns det ett snabbt sätt att lösa detta problem?

Ändra flera hyperlänkvägar samtidigt i ett kalkylblad med VBA-kod

Ändra flera hyperlänkvägar samtidigt i ett kalkylblad / arbetsbok / flera ark / markering med en fantastisk funktion


Ändra flera hyperlänkvägar samtidigt i ett kalkylblad med VBA-kod

Om du antar att du har en lista med data med samma hyperlänkar som följande skärmdump visas, och med en VBA-kod kan du snabbt ersätta den gamla filvägen eller adressen i ett kalkylblad med en ny.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationsfönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulfönster.

VBA-kod: ändra flera hyperlänkvägar samtidigt

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta för att låta dig mata in din gamla hyperlänkadress i Gammal text låda. Se skärmdump:

4. Klicka OK, och en annan snabbruta visas för att påminna dig om att ange den nya hyperlänkadressen som du vill använda.

5. Och klicka sedan på OKhar alla samma gamla hyperlänkadresser ersatts av den nya på en gång. Se skärmdumpar:


Ändra flera hyperlänkvägar samtidigt i ett kalkylblad / arbetsbok / flera ark / markering med en fantastisk funktion

Om du vill ersätta hyperlänksökvägarna från ett urval, flera ark, nuvarande arbetsbok eller flera arbetsböcker, hur kan du göra det? Med Sök och ersätt egenskap av Kutools för Excelkan du snabbt hantera den här uppgiften.

Notera:Att tillämpa detta Sök och ersätt verktyget, först bör du ladda ner Kutools för Excel, och använd sedan funktionen snabbt och enkelt.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Kutools > Navigering, se skärmdump:

2. I det öppnade Navigering fönster, klicka Hitta och ersätta fliken, i Sök och ersätt fönster, klicka ersätta fliken och gör sedan följande:

  • Ange den gamla hyperlänkstexten som du vill hitta i Hitta det textruta och skriv sedan in den nya hyperlänkstexten som du vill ersätta med Ersätt med textruta;
  • Ange omfattningen där du vill hitta och ersätt hyperlänksökvägen från Inom rullgardinsmeny;
  • Välj sedan Hyperlänkar från rullgardinsmenyn Titta in;
  • Äntligen klickar du på Hitta alla -knappen har alla motsvarande celler som innehåller den specifika hyperlänktexten listats i den nedre listrutan.

3. Klicka sedan Ersätt alla knappen har de gamla hyperlänkvägarna ändrats till de nya på en gång, se skärmdump:

Klicka för att ladda ner Kutools för Excel för gratis provversion!


Fler relativa artiklar:

  • Extrahera faktiska adresser från hyperlänkar
  • 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?
  • Konvertera webbadresser till faktiska bilder i Excel
  • Om du har en lista med webbadresser till bilder i kolumn A och nu vill du ladda ner motsvarande bilder från webbadresserna och visa dem i intilliggande kolumn B som vänster skärmdump visas. Hur kunde du extrahera de faktiska bilderna från bild-URL: erna i Excel snabbt och enkelt?
  • Konvertera 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?
  • Öppna en specifik sida med PDF-dokument från Excel-länk
  • När du länkar en cell till en PDF-fil, går du normalt till den första sidan i PDF-filen när du klickar för att öppna hyperlänken. Om du behöver hoppa direkt till en viss sida i PDF-filen genom att klicka på hyperlänken kan den här artikeln göra dig en tjänst.

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
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...

Beskrivning


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 (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
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