エクセルでリンクされているURLを取り出したい

質問

EXEL2003です。
A列にサイト名が並んであり、すべてにURLアドレスがハイパーリンクされています。
つまりA列のどれかのセルをクリックするとブラウザが立ち上がり、リンク先のURLに飛びます。

この状態で、B列にハイパーリンクされているURLアドレスを入れたいのですが、どうすればいいのでしょうか？
ひとつひとつなら手作業でできるのですが、数が多いので困っています。

よろしくお願いします。

回答No.2

mab_2288

この方法でいかがでしょう？
ハイパーリンク未設定の場合のエラー回避の
方法が分かりませんでした（初心者なもので）
が、
>すべてにURLアドレスがハイパーリンク
とのことですので、正常に動くと思います。

Sub リンク表示()
Dim I As Integer
For I = 1 To 9999
'↓A列が空白になるまで処理を繰り返す
If Cells(I, 1).Value = "" Then
Exit For
End If

'↓B列のセルにA列のハイパーリンク先のアドレスをpasteする
Cells(I, 2).Select
Selection.Value = ActiveCell.Offset(, -1).Hyperlinks(1).Address
Next I
End Sub

お礼

ありがとうございます。
しかし、残念なことによくわかりません。
これはマクロですか？
マクロのやりかたを知らないので、勉強してみます。