Excel 2010 - макрос Setlink на определенные столбцы

Question

Как установить этот макрос для применения ко всем столбцам A из всех столбцов G:

Это работает, но я хочу применить его ко всем активным строкам в столбце A. Это берет гиперссылки в столбце G и применяет его к точно такой же строке в столбце 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

Я нашел решение, используя этот код. Я поместил свои данные в столбцы A и B, поэтому этот код создает гиперссылку в столбце C, используя отображаемый текст в A и URL в столбце 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

Я хотел бы сохранить это простым и просто скопировать столбец.

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

Это быстро и легко скопирует столбец G в столбец A, включая гиперссылки.