VBA100本ノック 27本目：ハイパーリンクのURL

こちらで公開されている、100本ノックに挑戦。
www.excel-ubara.com
素晴らしい教材を公開いただき、ありがとうございます。

上記リンク先から、問題文を転載。

ハイパーリンク情報を取得するということで、今回はHyperlinksオブジェクト
を使用する（そのまんま）。
docs.microsoft.com

テスト用サンプルとして、Wikipediaのページをコピペしたこちらを準備した。

作成したマクロがこちら。

Sub VBA_100Knock_027()
    Dim i As Long
        For i = 1 To 6
            ' ハイパーリンクの存在確認。
            ' ※無いと、次の処理でエラーになる。
            If Cells(i, 1).Hyperlinks.Count <> 0 Then
                Cells(i, 2) = Cells(i, 1).Hyperlinks.Item(1).Address
                Cells(i, 1).Hyperlinks.Delete
            End If
        Next
End Sub

実行した結果がこちら。

※冒頭リンク先の解答例および解説も、ぜひご一読ください。

参考まで。