Como eu colo uma coluna de hyperlinks?

Question

Esta parece ser uma pergunta simples, mas não consigo descobrir a resposta. Como faço para colar um monte de hiperlinks?

Por favor, veja a captura de tela que eu postei.

Comovocêvê,eutenhoumacolunadetexto.Cadalinhadetextoé,naverdade,umhiperlink.Nãoprecisodotexto,masprecisodasURLs.ComofaçoparacolartodasaslinhasdetextocomoURLs?Eupenseiquehaviaumaopção"colar especial", mas se houver, não estou vendo isso.

Atualmente, vou de célula em célula, clique com o botão direito do mouse em "Editar hiperlink" e copie e cole manualmente. Isso é bastante entediante, então eu gostaria de saber como fazer tudo de uma vez (se possível).

Alguma idéia?

    

Answer 1

Primeiro, cole normalmente. Em seguida, selecione o bloco colado e execute esta macro curta:

Sub HyperFixer()
    Dim h As Hyperlink
    Dim rng As Range
    For Each h In ActiveSheet.Hyperlinks
        Set rng = h.Range
        If Not Intersect(rng, Selection) Is Nothing Then
            h.TextToDisplay = h.Address
        End If
    Next h
End Sub

O nome "amigável" de cada hiperlink será alterado para refletir a URL .