Excel 2010 - Макросстановка до конкретних стовпців

Як встановити цей макрос, який застосовуватиметься до всіх стовпців А з усіх стовпців G:

Це працює, але я хочу застосувати його до всіх активних рядків у стовпці А. Це робить гіперпосилання в стовпці G і застосовує його до точно такого ж рядка в стовпці А.

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

microsoft-excel macros

— Піті
джерело

Відповіді:

Я вирішив рішення за допомогою цього коду. Я розміщую свої дані у стовпцях 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

— Піті
джерело

Я б простий і просто скопіював стовпець.

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

Це швидко і легко скопіює стовпчик G у стовпчик A, як і гіперпосилання.

— CharlieRB
джерело

Це, здається, не зберігає текст із стовпця А. Я хочу зберегти його як відображений текст під час використання URL-адреси у стовпці G.

— Petee

По суті = гіперпосилання () працювало б, але воно обмежене символами, тому я не можу цим користуватися.

— Піті

У вашому запитанні було не зрозуміло, що в колонці А. існують дані, що я був введений в оману вашим твердженням " застосувати до всіх стовпця А з усіх стовпців G ". Це звучить як копія. Будь ласка, уточніть своє запитання, щоб ми могли спробувати вам допомогти

— CharlieRB

Вибач за те. Наприклад, A2 = Google. G2 = www.google.com. Я хочу створити гіперпосилання в A2, використовуючи URL-адресу від G2. Текст дисплея повинен залишатися таким же, як A2.

— Піті

Я хочу застосувати те саме правило до кожного рядка в стовпцях A і G

— Petee