ハイパーリンク（HyperLink）については、沢山利用方法があるかと思います。今回は一番わかり易く、HyperLinkの取得方法について記述します。
始めに。
HyperLinkの利用方法については、多岐にわたると思います。
●[HyperLink]の文字列を取得する ←（今回はこれに関して記述します）
●挿入された[HyperLink]を削除する。
●[HyperLink]が実行された時の動作の制御
など、です。
注意事項
今回は、『[HyperLink]の文字列を取得する 』 について記述します。
※[HyperLink]の特定的な指定方法については記述しません。
※[HyperLink関数]に関してはここでは記述していません。
特定のセルに、ハイパーリンクの設定があれば抽出する。
以下は、コード実行前の画像です。
以下は、実行すると『1行～10行までの間で、ハイパーリンクのあるセル（A列）を、
B列に抽出する』構文になります。※抽出条件はA列（サンプル）からのみ。
Option Explicit
Sub ハイパーリンク抽出()
Dim i As Long
For i = 1 To 10
If Cells(i, 1).Hyperlinks.Count > 0 Then
Cells(i, 2) = Cells(i, 1).Hyperlinks.Item(1).Address
End If
Next i
End Sub
以下が、コード実行後の画面です。
このパターンの構文は沢山あるので、記述方法に好みも出てくると思います。
ご自身に合ったコードの書き方をすれば良いと思います。
記述的に美しい方法もあるのでしょうが 、
自分に分かり易い構文を追求するのが一番です。
