ハイパーリンクのURLを抽出取得する

トップページ（目次）

005.ハイパーリンクのURLを抽出取得する

＜実行前後＞

→

Sub ハイパーリンクのURLを抽出取得する()
    
    Range("B1") = Range("A1").Hyperlinks(1).Address
    Range("B2") = Range("A2").Hyperlinks(1).Address
    Range("B3") = Range("A3").Hyperlinks(1).Address

End Sub