ExcelVBAでHyperリンク作成

400箇所ハイパーリンクを張るExcelを作る必要があり手作業だと大変なのでVBAでサクッと

事前にファイルパスを作る必要があります。

Sub link()
    Dim i As Long
    With ActiveSheet.Hyperlinks
        For i = 1 To 402
            .Add Anchor:=Cells(i, 3), Address:=Cells(i, 4).Value
        Next i
    End With
End Sub

C列にD列記載のリンクを作成する　行は今回固定化しているため1から402を直接ループで廻しています。