27本目 ハイパーリンクのURLを取得、削除

VBA100本ノック 27本目を動画で解説しています。Excelの神髄さんの模範解答はコチラ

---

問題

#VBA100本ノック 27本目
WEBページからコピーしてシートに貼り付けたら、セルの文字列にハイパーリンクが付いてきました。
ハイパーリンクが付いているセルについて、
・右隣のセルにリンクのURLを出力
・ハイパーリンクを解除
※図は無視してください。
※対象シートは任意

解答

Sub test1()

    Dim hpl As Hyperlink
    
    For Each hpl In ActiveSheet.Hyperlinks
        If hpl.Type = 0 Then
            hpl.Range.Offset(, 1).Value = hpl.Address
        End If
    Next
    
    ActiveSheet.Hyperlinks.Delete

End Sub