Excel: converter uma coluna com hiperligações para mostrar apenas os links

Resposta curta: não se pode automatizar isto sem VBA.

Manual

Isto é num computador Windows 7; basta substituir os atalhos pelos seus correspondentes Mac.

1. destacar uma célula com um hiperlink.
2. Prima CTRL+K. Isto abre a caixa de diálogo do hyperlink (ver imagem abaixo). Uma vez aberta, verá que o seu cursor já está no campo Endereço.
3. Prima CTRL+A para destacar o URL completo.
4. Prima CTRL+C para o copiar.
5. Pressionar ESC ou Enter para fechar a caixa de diálogo Hyperlink.
6. Colar a URL algures através de CTRL + V.

Public Function GetURL(c As Range) As String
    On Error Resume Next
    GetURL = c.Hyperlinks(1).Address
End Function

VBA

Aqui está uma solução VBA para aqueles que a podem utilizar.

Crie um módulo VBA com o seguinte código:

=GetURL(A1)

Para usar, introduza o seguinte em qualquer célula:

onde A1 contém um hyperlink.

A função no trabalho:

Isto pode parecer um método de força bruta, mas é a melhor maneira que já arranjei. (Descobri esta página quando eu próprio tive a mesma pergunta há uma hora atrás… podia-se passar o dia todo à procura, mas por vezes é mais fácil fazê-lo e acabar com ele).

1) Copiar e colar apenas as células que contêm as hiperligações para uma nova folha de cálculo.

2) Exportar a folha de cálculo, clicar em “Change File Type”, seleccionar “Save As Another File Type” e guardá-la como uma página web (também conhecida como ficheiro HTML).

3) Abra a página web no seu navegador e veja a fonte.

4) Copie e cole a fonte num editor de texto.

5) Usando a função Encontrar/Substituir do editor de texto, remover o texto principal e o texto final de cada hiperlink. (Por outras palavras, substituir o referido texto por nada: “”) Note que este texto deve ser idêntico para cada hiperlink.

6) Deverá agora ter um ficheiro de texto com nada mais do que hiperligações. Copie e cole conforme necessário na sua folha de cálculo original ou utilize como/onde desejar.

Editado para declarar que pode realmente exportar para um ficheiro separado que é HTM. Feche o ficheiro e reabra-o novamente em Excel e ele resolverá o problema. A fórmula =Hyperlink desapareceu e as ligações são convertidas em ligações regulares. Este método poupou-me horas e foi muito simples e não tive de lidar com scripts ou fórmulas ou VBA ou Macros.

Eu uso um mac e isto funcionou para mim: destaque a coluna que precisa de converter, no menu Inserir, abra “Hyperlink”. Elimine qualquer texto que apareça na caixa Mostrar. Dirá “[várias células seleccionadas]” se o seu texto de exibição for diferente entre células. Assim que clicar em OK, apenas os links aparecerão na sua folha de trabalho. Se precisar de converter células individuais em vez de uma coluna inteira, destaque todas as células que precisa de converter, clique com o botão direito do rato, seleccione “editar hiperlink” e siga os mesmos passos para apagar o texto na caixa de Visualização.

Tenho a certeza que existe com VBA, mas entretanto clique com o botão direito do rato, H, e copie e cole o endereço no ecrã para exibir a caixa

Nos anos desde que esta pergunta foi feita, o Excel acrescentou a função =GetURL(cell) para que possa fazer isto sem deixar cair a sua própria VBA.