Excel 2010 - Macro Setlink para colunas específicas

Question

Como defino essa macro para aplicar a toda a coluna A de toda a coluna G:

Isso funciona, mas eu quero aplicá-lo a todas as linhas ativas na coluna A. Isso pega os hiperlinks na coluna G e aplica-os exatamente à mesma linha na coluna A.

Sub setlink()

Dim r1 As Range
Dim r2 As Range
Set r1 = Sheet2.Range("a2")
Set r2 = Sheet2.Range("G2")
Sheet2.Hyperlinks.Add r1, r2.Value

End Sub

    

Answer 1

Eu descobri uma solução usando esse código. Eu coloquei meus dados nas colunas A e B, então este código cria um hiperlink na coluna C usando o texto de exibição em A e o URL na coluna B.

Sub MakeHyperlinksUsingArray()
    Dim vArray As Variant
    Dim i As Long

    With Sheets("Backup")
        vArray = .Range("A2:B" & _
            .Cells(.Rows.Count, "A").End(xlUp).Row).Value

        For i = 1 To UBound(vArray, 1)
            .Hyperlinks.Add _
                Anchor:=.Cells(i + 1, "C"), _
                Address:=vArray(i, 2), _
                TextToDisplay:=vArray(i, 1)
        Next i
    End With 
End Sub

    

Answer 2

Gostaria de simplificar e apenas copiar a coluna.

Columns("G").Copy
Columns("A").Select
ActiveSheet.Paste

Isso copiará rápida e facilmente a coluna G para a coluna A, como está, incluindo os hiperlinks.