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

Por algum motivo, você pode criar vários hiperlinks para seus dados na planilha, e todos os hiperlinks estão vinculados ao mesmo caminho de arquivo ou endereço, mas agora você precisa substituir esse caminho de hiperlink por outro endereço de uma só vez. Alterar o caminho dos hiperlinks individualmente pode desperdiçar muito tempo; há uma maneira rápida de resolver esse problema?

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

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

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

Suponha que você tenha uma lista de dados com os mesmos hiperlinks, conforme mostrado na captura de tela a seguir, e com um código VBA, você pode substituir rapidamente o antigo caminho de arquivo ou endereço em uma planilha por um novo.

1. Pressione e segure as teclas ALT + F11, e isso abrirá a Janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole a seguinte macro na janela Módulo.

Código VBA: alterar 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. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt aparecerá para que você insira seu antigo endereço de hiperlink no campo Antigo. Veja a captura de tela:

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

5. E então clique em OK, todos os mesmos antigos endereços de hiperlink foram substituídos pelo novo de uma vez. Veja as capturas de tela:

Alterar 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ê quiser substituir os caminhos de hiperlink de uma seleção, várias planilhas, pasta de trabalho atual ou várias pastas de trabalho, como poderia fazer isso? Com o recurso Localizar e Substituir do Kutools para Excel, você pode lidar rapidamente com essa tarefa.

Após instalar o Kutools para Excel, faça o seguinte:

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

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

• Digite o texto do antigo hiperlink que deseja localizar no campo Localizar o que, e depois digite o novo texto de hiperlink que deseja substituir no campo Substituir por;
• Especifique o escopo onde deseja localizar e substituir o caminho do hiperlink na lista suspensa Dentro;
• Em seguida, selecione Hiperlinks na lista suspensa Pesquisar em;
• Por fim, clique no botão Localizar Tudo, todas as células correspondentes que contêm o texto específico do hiperlink serão listadas na caixa de lista abaixo.

3. Depois, clique no botão Substituir Tudo, os antigos caminhos de hiperlink serão alterados para os novos de uma vez, veja a captura de tela:

Clique para Baixar Kutools para Excel para Teste Gratuito!

Mais artigos relacionados: