No Excel, eu colei em um monte de URLs, mas eles não são links ao vivo - como faço para convertê-los em massa para links ao vivo?

Question

No Excel, colei um monte de URLs em uma coluna.

No entanto, eles não são links ao vivo depois de serem exibidos.

Como faço para converter todos eles em massa para links ao vivo rapidamente?

    

Answer 1

Isso deve funcionar.

Sub Test()
  Dim rngRange As Range
  For Each rngRange In Selection
    If Trim(rngRange.Value) <> "" Then
      rngRange.Hyperlinks.Add _
               Anchor:=Cells(rngRange.Row, rngRange.Column), _
               Address:=rngRange.Text, _
               ScreenTip:=rngRange.Text, _
               TextToDisplay:=rngRange.Text
      End If
  Next rngRange
End Sub

Se você tiver que fazer muito isso, eu usaria um atalho de teclado.

Para que isso aconteça no Excel 2010 ( elogios de @Excellll )

1. Vá para "Visualizar" e clique no botão "Macros".
2. Isso abrirá uma caixa de diálogo solicitando o nome de uma nova macro. Digite "Test" e clique em "Criar".
3. Isso abrirá o editor do VBA. Copie o código acima para esta nova janela.
4. Agora vá para sua planilha e selecione o intervalo de células com os hiperlinks que você deseja corrigir.
5. Volte para o editor do VBA. Pressione F5. Isto irá executar o código.