Às vezes, hiperlinks invisíveis causam problemas para você. E neste artigo, usaremos o VBA para encontrar hiperlinks invisíveis em sua planilha do Excel.
Nesta imagem abaixo, você pode ver que todas as células têm o mesmo formato. Mas existem alguns hiperlinks invisíveis entre essas células.
Quando você precisar selecionar uma célula, certamente usará o mouse e clicará nela. Mas se a célula contiver um hiperlink invisível, o computador iniciará imediatamente o navegador e abrirá o hiperlink. Isso é muito irritante porque você só quer selecionar a célula. Portanto, você precisa encontrar os hiperlinks invisíveis para evitar esse problema.
Encontrar hiperlinks invisíveis
Para encontrar esses hiperlinks invisíveis, agora você pode seguir as etapas abaixo.
- Pressione as teclas de atalho “Alt + F11” no teclado.
- E então no editor do Visual Basic, clique no botão “Inserir” na barra de ferramentas.
- Depois disso, escolha a opção “Módulo” no submenu.
- Agora insira os seguintes códigos no novo módulo:
Sub FindHyperlinks()
Dim h como intervalo
Para cada h em ActiveSheet.UsedRange
Se h.Hyperlinks.Count = 1 Então
h.Interior.Color = vbAmarelo
Se acabar
próximo h
End Sub
Nesses códigos VBA, usamos o método Count para julgar se existe um hiperlink. Se houver um hiperlink, a célula será preenchida com a cor amarela. Se você precisar encontrar hiperlinks em um intervalo específico, também poderá modificar o intervalo nos códigos.
- Em seguida, pressione o botão “F5” no teclado. Além disso, você também pode clicar no botão “Run Sub” na barra de ferramentas do editor.
E então você pode voltar para a planilha. Aqui todas as células com hiperlinks são preenchidas com uma cor especial. Assim, você pode ter mais cuidado ao selecionar essas células.
Além disso, se você precisar remover esses hiperlinks, consulte nosso artigo anterior 3 Métodos Práticos para Remover Hiperlinks em Células do Excel. Mas se você precisar excluir hiperlinks diretamente pelo VBA rapidamente, continue lendo a parte seguinte.
Remover hiperlinks invisíveis
Nesta parte, você pode usar códigos VBA para remover hiperlinks invisíveis rapidamente. Mas antes de fazer isso, você precisa ter certeza de que não usará esses hiperlinks.
- Repita os 3 primeiros passos e insira um novo módulo.
- Agora insira os seguintes códigos no módulo:
Sub RemoveHyperlinks ()
Dim h como intervalo
Para cada h em ActiveSheet.UsedRange
Se h.Hyperlinks.Count = 1 Então
h.Hiperlinks.Excluir
Se acabar
próximo h
End Sub
- Depois disso, execute o sub. Assim, todos os hiperlinks serão removidos da planilha.
Você também pode voltar para a planilha e ajustar o formato na planilha. Por meio desse processo, você pode remover rapidamente todos os hiperlinks invisíveis.
Execute uma poderosa ferramenta de reparo
Quando você descobrir que seu Excel está corrompido, tente corrigi-lo imediatamente. Isso ocorre porque o resultado de uma corrupção de dados pode ser desastroso. A fim de reparar problema de arquivo xlsxAgora você pode investir em nossa ferramenta de terceiros. Essa ferramenta já foi utilizada por muitas vítimas de corrupção de arquivos do Excel. Quase todas ficaram satisfeitas com o resultado. Portanto, não perca essa oportunidade.
Introdução do autor:
Anna Ma é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo reparar danos em documentos e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com