リンク設定

Sub リンク設定()

    Dim i As Long

    With ActiveSheet.Hyperlinks

        '5行目から最終行まで
        For i = 5 To Cells(Rows.Count, 1).End(xlUp).Row

            'B列にリンク設定、リンク先はD列
            .Add Anchor:=Cells(i, 2), Address:=Cells(i, 4).value

        Next i

    End With

End Sub