Создать гиперссылку, используя информацию из двух столбцов

Попробуйте сделать аргумент для hyperlinks.add использовать переменную.

dim addressStr as string
dim targetRng as Range

For Each row In CombineRow.Rows
     For Each cell In row.Cells
        Branch = Branch_ID.Cells.Value
        Name = Name_ID.Cells.Value

        set targetRng = range("A1")   'change this to whatever you want it to be each loop
        addressStr = "https://www.example.com/" & cells(cell.row,15).value

        ActiveSheet.Hyperlinks.Add Anchor:=targetRng , Address:= _
            addressStr, SubAddress:= _
            "something:", _
            TextToDisplay:=Name
        Next cell
        ' relative one row down
        Set Branch_ID = Branch_ID.Offset(1, 0)
        Set Name_ID = Branch_ID.Offset(1, 0)
    Next row<BR>
End Sub<BR>

Кроме того, вы устанавливаете Name_ID и Branch_ID в одно и то же значение в своих смещениях.

В вашем цикле вы будете проходить только через 1 строку (потому что весь ваш диапазон находится в строке 2). Таким образом, ваш единственный цикл - это ячейки - вы никогда не устанавливаете идентификаторы веток/имен по-разному, потому что они появляются после вашего цикла:

For Each cell In row.Cells
    'stuff
Next cell

Set Branch_ID = Branch_ID.Offset(1, 0)
Set Name_ID = Name_ID.Offset(1, 0)

Таким образом, каждый раз, когда вы вызываете функцию гиперссылки, вы используете один и тот же диапазон Name_ID. Вы также можете сделать это смещение (0,1), потому что смещение равно смещению (строка, столбец), и кажется, что вы выполняете итерацию по горизонтальному диапазону.

Вы можете просто использовать оператор & для объединения строк и создания URL-адреса.

addressStr = "https://www.example.com/" & <<Specify Cell for M Column and Row>>

Это работает!
Спасибо всем за помощь.
Решением было не ставить (G2:M2), потому что это приводит только к созданию семи гиперссылок.
Вместо этого просто ставьте (G:M) и и IF вокруг него, чтобы предотвратить создание бессмысленных гиперссылок, когда ячейки уже пусты.

    Sub Macro2()
'
' Macro2 Macro
'
Dim Branch As String
Dim Name As String

' combine two rows
Dim CombineRow As Range

Dim cell As Range
Dim row As Range
Dim Branch_ID As Range
Dim Name_ID As Range

Set Branch_ID = Worksheets("Default").Range("M2")
Set Name_ID = Worksheets("Default").Range("G2")

Set CombineRow = Range("G:M")

For Each row In CombineRow.Rows
For Each cell In row.Cells

    Branch = Branch_ID.Cells.Value
    Name = Name_ID.Cells.Value

    If Name <> "" Then

        ActiveSheet.Hyperlinks.Add Anchor:=Name_ID, Address:= _
            "https://www.example.com", SubAddress:= _
            "something" & Branch, _
            TextToDisplay:=Name

    Set Branch_ID = Branch_ID.Offset(1, 0)
    Set Name_ID = Name_ID.Offset(1, 0)

    End If

    Next cell

    Next row

End Sub

Я МЕРТВ уверен, что есть много возможностей для улучшения, особенно в конструкции IF.
Но пока это работает. Это не означает, что кто-то должен сдерживать свои комментарии по улучшению этого ;). Это были мои первые шаги в VBA! :)