Como alterar vários caminhos de hiperligação de uma só vez no Excel?
Por alguma razão, poderá ter criado várias hiperligações na sua folha de cálculo, todas apontando para o mesmo caminho de arquivo ou endereço. Agora, precisa substituir esse caminho por outro — e fazer essa alteração de uma só vez. Editar cada hiperligação individualmente pode ser extremamente demorado. Existe uma forma rápida de resolver este problema?
Alterar múltiplos caminhos de hiperligação de uma só vez numa folha de cálculo com código VBA
Alterar múltiplos caminhos de hiperligação de uma só vez numa folha de cálculo com código VBA
Imagine que tem uma lista de dados com as mesmas hiperligações, tal como ilustrado na imagem seguinte. Com um código VBA, pode substituir rapidamente o antigo caminho do arquivo ou endereço numa folha de cálculo por um novo.
1. Mantenha premidas as teclas ALT + F11, o que abrirá a Janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
Código VBA: alterar múltiplos caminhos de hiperligação de uma só 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. Em seguida, prima a tecla F5 para executar este código. Surge uma caixa de diálogo a solicitar que introduza o seu antigo endereço do hiperlink na caixa Texto Antigo. Veja a imagem:
4. Clique em OK e surgirá outra caixa de diálogo a solicitar que introduza o novo endereço do hiperligação que pretende utilizar.
5. Em seguida, clique em OK; todos os endereços de hiperligação antigos iguais serão substituídos pelo novo de uma só vez. Veja as imagens:
|  |  |
Alterar múltiplos caminhos de hiperligação de uma só vez numa folha de cálculo / livro / várias folhas / seleção com uma funcionalidade incrível
Pretende substituir os caminhos das hiperligações numa seleção, em várias folhas, no livro atual ou em múltiplos livros? Com a funcionalidade Localizar e Substituir do Kutools para Excel, resolve esta tarefa num instante!
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em Kutools > Navegação, conforme ilustrado:
2. No painel Navegação aberto, clique no separador Localizar e Substituir; no painel Localizar e Substituir, clique no separador Substituir e efetue as seguintes operações:
- Introduza o texto antigo da hiperligação que pretende localizar na caixa de texto Localizar; depois, digite o novo texto da hiperligação que pretende utilizar como substituição na caixa de texto Substituir por.
- Especifique o âmbito onde pretende Localizar e Substituir o caminho da hiperligação a partir da lista pendente Em.
- Em seguida, selecione Hiperligações na lista pendente Procurar em;
- Por fim, clique no botão Localizar tudo; todas as células correspondentes que contêm o texto específico da hiperligação serão listadas na caixa inferior.
3. Em seguida, clique no botão Substituir tudo; os antigos caminhos das hiperligações serão alterados para os novos de uma só vez. Veja a imagem:
Clique para transferir o Kutools para Excel e experimente gratuitamente!
Mais artigos relacionados:
- Extrair Endereços Reais a Partir de Hiperligações
- Imagine que tem um intervalo de células com hiperligações e precisa de visualizar e extrair rapidamente os seus destinos reais, tal como ilustrado na imagem seguinte. Haverá uma forma simples de resolver este problema de imediato?
- Converter URLs de Imagens em Imagens Reais no Excel
- Se tiver uma lista de URLs de imagens na coluna A e quiser descarregar e exibir as respetivas imagens na coluna adjacente B, tal como ilustrado na imagem à esquerda, como pode extrair rapidamente e com facilidade as imagens reais a partir desses URLs no Excel?
- Converter Texto de URL em Hiperligação Clicável no Excel
- Imagine que tem vários URLs na sua folha de cálculo, mas não estão ligados, e agora precisa de os converter em hiperligações clicáveis, tal como ilustrado nas imagens seguintes. É claro que pode clicar duas vezes em cada um para os tornar clicáveis, mas isso será demorado se tiver muitos URLs. Como pode converter automaticamente múltiplos URLs não ligados em hiperligações clicáveis no Excel?
- Abrir uma Página Específica de um Documento PDF a Partir de uma Hiperligação no Excel
- Quando liga uma célula a um Arquivos PDF, normalmente irá para o Primeira Página do Arquivos PDF ao clicar para abrir a hiperligação. Se precisar de saltar diretamente para uma página específica do Arquivos PDF ao clicar na hiperligação, este artigo poderá ajudá-lo.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos