Gå til hovedindhold

Hvordan ændres flere hyperlinkstier på én gang i Excel?

Til et eller andet formål kan du oprette flere hyperlinks til dine data i regnearket, og alle hyperlinks er knyttet til den samme filsti eller -adresse, men nu skal du erstatte denne hyperlinksti med en anden adresse ad gangen. At ændre stien til hyperlinks individuelt kan spilde meget tid. Er der en hurtig måde at løse dette problem på?

Skift flere hyperlinkstier på én gang i et regneark med VBA-kode

Skift flere hyperlinkstier på én gang i et regneark / projektmappe / flere ark / valg med en fantastisk funktion


Skift flere hyperlinkstier på én gang i et regneark med VBA-kode

Antag, at du har en liste over data med de samme hyperlinks som det viste skærmbillede, og med en VBA-kode kan du hurtigt erstatte den gamle filsti eller adresse i et regneark med en ny.

1. Hold nede i ALT + F11 tasterne, og det åbner Vinduet Microsoft Visual Basic til applikationer.

2. Klik indsatte > Moduler, og indsæt følgende makro i Modulvindue.

VBA-kode: skift flere hyperlinkstier på én gang

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. Tryk derefter på F5 nøgle til at køre denne kode, og et felt til at lade dig indtaste din gamle hyperlinkadresse i Gammel tekst boks. Se skærmbillede:

4. Klik OK, og der vises en anden meddelelsesboks for at minde dig om at indtaste den nye hyperlinkadresse, du vil bruge.

5. Og klik derefter på OK, alle de samme gamle hyperlinkadresser er blevet erstattet af den nye på én gang. Se skærmbilleder:


Skift flere hyperlinkstier på én gang i et regneark / projektmappe / flere ark / valg med en fantastisk funktion

Hvis du vil erstatte hyperlinkstier fra et valg, flere ark, nuværende arbejdskrog eller flere projektmapper, hvordan kunne du gøre det? Med Søg og erstat træk ved Kutools til Excel, kan du hurtigt håndtere denne opgave.

Bemærk:At anvende dette Søg og erstat værktøj, for det første skal du downloade Kutools til Excel, og anvend derefter funktionen hurtigt og nemt.

Efter installation Kutools til Excelskal du gøre som dette:

1. Klik Kutools > Navigation, se skærmbillede:

2. I åbnet Navigation rude, klik Find og erstat fanebladet i Søg og erstat rude, klik udskifte fanen, og udfør derefter følgende handlinger:

  • Indtast den gamle hyperlinktekst, som du vil finde, i Find hvad tekstfelt, og skriv derefter den nye hyperlinktekst, som du vil erstatte med, i Erstat med tekstboks;
  • Angiv omfanget, hvor du vil finde, og erstat hyperlinkstien fra Inden for rulleliste
  • Vælg derefter Hyperlinks fra rullelisten Look in;
  • Endelig skal du klikke på Find alle knappen, er alle tilsvarende celler, der indeholder den specifikke hyperlinktekst, blevet vist i den nederste listeboks.

3. Klik derefter på Erstat alle knap, de gamle hyperlinkstier er blevet ændret til de nye på én gang, se skærmbillede:

Klik for at downloade Kutools til Excel til gratis prøveversion!


Flere relative artikler:

  • Uddrag faktiske adresser fra hyperlinks
  • Antag, at du har en række celler, der indeholder hyperlinks, og nu skal du se hyperlinksens virkelige destination og udtrække dem fra hyperlinks som vist nedenstående skærmbillede. Er der nogen nemme måder at løse dette problem hurtigt?
  • Konverter billed-URL'er til faktiske billeder i Excel
  • Hvis du har en liste over billed-URL-adresser i kolonne A, og nu, vil du downloade de tilsvarende billeder fra URL'erne og vise dem i den tilstødende kolonne B som det venstre skærmbillede vist. Hvordan kunne du i Excel hurtigt og nemt udtrække de faktiske billeder fra billed-URL'erne?
  • Konverter urletekst til klikbart hyperlink i Excel
  • Antag at du har flere webadresser i dit regneark, men de er ikke sammenkædede, og nu skal du konvertere alle de ikke-linkede webadresser til klikbare hyperlinks, som følgende skærmbilleder vises. Selvfølgelig kan du dobbeltklikke på dem en efter en for at gøre dem klikbare, men det vil være tidskrævende, hvis der er mange webadresser. Hvordan kunne du konvertere flere ikke-linkede webadresser til klikbare hyperlinks automatisk i Excel?
  • Åbn en bestemt side med PDF-dokument fra Excel-hyperlink
  • Når du linker en celle til en PDF-fil, går du normalt til den første side i PDF-filen, når du klikker for at åbne hyperlinket. Hvis du skal springe direkte til en bestemt side i PDF-filen ved at klikke på hyperlinket, kan denne artikel muligvis gøre dig en tjeneste.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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

Beskrivelse


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