Como copio o hiperlink apenas (e não o texto) para outra célula? [duplicado]

Question

Eu tenho uma planilha onde a coluna A exibe nomes. Existem algumas centenas de nomes e cada um tem um hiperlink diferente (que liga à página da web dessa pessoa). Quero transferir esses hiperlinks para uma coluna diferente, com texto diferente e sem hiperlinks.

Nem todas as células da coluna A possuem um hiperlink. Há grupos de células mescladas, então A2: A7 tem um link, A8: A13 o próximo, A9: 10 o próximo (ou seja, o número de células mescladas não é uniforme).

por exemplo. onde A2: A7 lê "Bob" e links para www.bob.com, eu quero I2: I7, que diz "Smith", e não linka para nada, para linkar para www.bob.com. Eu quero fazer isso repetidamente, copiando links de A2: A579 para I2: I579.

A informação é copiada de uma tabela dentro de uma página web, e é daí que os hiperlinks vêm.

    

Answer 1

Esta macro ajudará

Sub SwapIt()

For i = 2 To 579

If Range("A" & i).Value <> "" And Range("I" & i).Value <> "" Then

    Dim newLink As String ' the new link string needs a place to live... just like me!

    If Range("A" & i).Hyperlinks.Count = 1 Then
    newLink = Range("A" & i).Hyperlinks(1).Address ' Get the old horrible link :)
    Range("I" & i).Hyperlinks.Add anchor:=Range("I" & i), Address:=Range("I" & i) ' horrible hack, just to get it to a link
    Range("I" & i).Hyperlinks(1).Address = newLink '' replace with the new link... Much better. Like a ray of sunshine
    End If
End If

Next i

End Sub

Isso moverá o hiperlink De A2 para I2, depois A3 para I3, etc.