Ir para o conteúdo principal

Como alterar vários caminhos de hiperlink de uma vez no Excel?

Para alguma finalidade, você pode criar vários hiperlinks para seus dados na planilha, e todos os hiperlinks são vinculados ao mesmo caminho de arquivo ou endereço, mas agora, você precisa substituir esse caminho de hiperlink por outro endereço de cada vez. Mudar o caminho dos hiperlinks individualmente pode levar muito tempo, existe uma maneira rápida de resolver este problema?

Altere vários caminhos de hiperlink de uma vez em uma planilha com o código VBA

Altere vários caminhos de hiperlink de uma vez em uma planilha / pasta de trabalho / várias planilhas / seleção com um recurso incrível


Altere vários caminhos de hiperlink de uma vez em uma planilha com o código VBA

Supondo que você tenha uma lista de dados com os mesmos hiperlinks da seguinte captura de tela mostrada, e com um código VBA, você pode substituir rapidamente o caminho ou endereço do arquivo antigo em uma planilha por um novo.

1. Mantenha pressionada a ALT + F11 chaves, e abre o Microsoft Visual Basic para janela de aplicativos.

2. Clique inserção > Móduloe cole a macro a seguir no Janela do módulo.

Código VBA: altere vários caminhos de hiperlink de uma vez

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. Então aperte F5 chave para executar este código e uma caixa de prompt para permitir que você insira seu endereço de hiperlink antigo no Texto antigo caixa. Veja a imagem:

4. Clique OK, e outra caixa de prompt é exibida para lembrá-lo de inserir o novo endereço de hiperlink que deseja usar.

5. E, em seguida, clique em OK, todos os mesmos endereços de hiperlinks antigos foram substituídos pelos novos de uma vez. Veja as capturas de tela:


Altere vários caminhos de hiperlink de uma vez em uma planilha / pasta de trabalho / várias planilhas / seleção com um recurso incrível

Se você deseja substituir os caminhos de hiperlink de uma seleção, várias planilhas, workkook atual ou várias pastas de trabalho, como você faria? Com Localizar e substituir característica de Kutools for Excel, você pode lidar rapidamente com essa tarefa.

Nota:Para aplicar isso Localizar e substituir utilitário, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools for Excel, por favor, faça o seguinte:

1. Clique Kutools > Navegação, veja a captura de tela:

2. No aberto Navegação painel, clique em Encontre e substitua guia, no Localizar e substituir painel, clique em Substituir guia e, em seguida, faça as seguintes operações:

  • Insira o texto do hiperlink antigo que você deseja encontrar no Encontre o que caixa de texto e, em seguida, digite o novo texto do hiperlink que deseja substituir no substituir por caixa de texto;
  • Especifique o escopo onde você deseja encontrar e substituir o caminho do hiperlink do Dentro lista suspensa;
  • Em seguida, selecione Hyperlinks na lista suspensa Examinar;
  • Finalmente, clique em Encontrar tudo botão, todas as células correspondentes que contêm o texto do hiperlink específico foram listadas na caixa de listagem inferior.

3. Então clique substituir tudo botão, os caminhos de hiperlink antigos foram alterados para os novos de uma vez, veja a captura de tela:

Clique para baixar o Kutools para Excel para avaliação gratuita!


Mais artigos relativos:

  • Extraia endereços reais de hiperlinks
  • Supondo que você tenha um intervalo de células que contêm hiperlinks, e agora você precise ver o destino real dos hiperlinks e extraí-los dos hiperlinks como mostrado a seguir. Existe alguma maneira fácil de resolver esse problema rapidamente?
  • Converter URLs de imagens em imagens reais no Excel
  • Se você tiver uma lista de endereços de URL de imagem na coluna A, e agora, deseja baixar as imagens correspondentes dos URLs e exibi-los na coluna B adjacente, conforme a captura de tela à esquerda exibida. No Excel, como você poderia extrair as imagens reais dos URLs das imagens de forma rápida e fácil?
  • Converter texto de URL em hiperlink clicável no Excel
  • Supondo que você tenha vários urls em sua planilha, mas eles não estão vinculados, e agora você precisa converter todos os urls desvinculados em hiperlinks clicáveis, conforme as capturas de tela a seguir mostradas. Claro, você pode clicar duas vezes neles um por um para torná-los clicáveis, mas isso levará muito tempo se houver muitos urls. Como você poderia converter vários urls não vinculados em hiperlinks clicáveis ​​automaticamente no Excel?
  • Abra uma página específica do documento PDF no hiperlink do Excel
  • Quando você vincula uma célula a um arquivo PDF, normalmente, você irá para a primeira página do arquivo PDF ao clicar para abrir o hiperlink. Se você precisar ir diretamente para uma página específica do arquivo PDF clicando no hiperlink, este artigo pode lhe fazer um favor.

Melhores ferramentas de produtividade de escritório

Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

guia kte 201905


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
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