Excel: converta uma coluna com hiperlinks para exibir apenas os links

Question

No Excel, tenho uma coluna de links que exibe texto em vez do link real.

Na verdade, preciso dos links. Existe uma maneira de converter em massa a coluna inteira para que os links sejam expostos? Caso contrário, terei que clicar em cada link, abri-lo em um navegador e copiar e colar o endereço...

Além disso, estou no Excel 2008 para Mac, então parece que não consigo fazer macros...

Answer 1

Resposta curta:você não pode automatizar isso sem o VBA.

Manual

Isso está em um computador com Windows 7; basta substituir os atalhos pelos correspondentes no Mac.

1. Destaque uma célula com um hiperlink.
2. Pressione CTRL+ K. Isso abre a caixa de diálogo do hiperlink (veja a imagem abaixo). Depois de aberto, você descobrirá que o cursor já está no campo Endereço.
3. Pressione CTRL+ Apara destacar o URL inteiro.
4. Pressione CTRL+ Cpara copiá-lo.
5. Pressione ESCou Enterpara fechar a caixa de diálogo Hiperlink.
6. Cole o URL em algum lugar via CTRL+ V.

VBA

Aqui está uma solução VBA para quem pode usá-la.

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

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

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

=GetURL(A1)

onde A1 contém um hiperlink.

A função no trabalho:

Answer 2

Isso pode parecer um método de força bruta, mas é a melhor maneira que encontrei. (Eu descobri esta página quando tive a mesma pergunta há uma hora... você poderia passar o dia todo procurando, mas às vezes é mais fácil fazer isso e pronto.)

1) Copie e cole apenas as células que contêm os hiperlinks em uma nova planilha.

2) Exporte a planilha, clique em “Alterar tipo de arquivo”, selecione “Salvar como outro tipo de arquivo” e salve-a como uma página da web (também conhecida como arquivo HTML).

3) Abra a página da web em seu navegador e visualize a fonte.

4) Copie e cole a fonte em um editor de texto.

5) Usando a função Localizar/Substituir do editor de texto, remova o texto inicial e final de cada hiperlink. (Em outras palavras, substitua o referido texto por nada: "") Observe que este texto deve ser idêntico para cada hiperlink.

6) Agora você deve ter um arquivo de texto contendo apenas hiperlinks. Copie e cole conforme necessário em sua planilha original ou use como/onde desejar.

Editado para indicar que você pode realmente exportar para um arquivo separado que é HTM. Feche o arquivo e abra-o novamente no Excel e isso resolverá o problema. A fórmula =Hyperlink desapareceu e os links foram convertidos em links regulares. Esse método me economizou horas e foi extremamente simples e eu não tive que lidar com scripts ou fórmulas ou VBA ou macros.

Answer 3

Eu uso um mac e funcionou para mim: destaque a coluna que você precisa converter, no menu Inserir, abra "Hyperlink". Exclua qualquer texto que apareça na caixa Exibir. Ele dirá "[múltiplas células selecionadas]" se o texto de exibição for diferente entre as células. Depois de clicar em OK, apenas os links aparecerão na sua planilha. Se você precisar converter células individuais em vez de uma coluna inteira, destaque todas as células que você precisa converter, clique com o botão direito, selecione "editar hiperlink" e siga as mesmas etapas para excluir o texto na caixa Exibir.

Answer 4

Nos anos desde que essa pergunta foi feita ao Excel, alguém em minha empresa adicionou essa =GetURL(cell)função ao nosso arquivo XLAM global e pensei que fazia parte do Excel básico. Aqui está o VBA...

Public Function GetURL(cell As Range, Optional default_value As Variant) As Variant
      Dim output As Variant
      If (cell.Range("A1").Hyperlinks.Count <> 1) Then
          output = default_value
      Else
          output = cell.Range("A1").Hyperlinks(1).Address
      End If
      GetURL = output
End Function