エクセルのハイパーリンクについて教えて下さい

質問

エクセルのあるセルにハイパーリンクの設定でURLがリンクしています。そのセルの表示にはURLではなく、いろいろな名前が表示されているのですが、このセルのURLのみを一発で読み取る方法はないのでしょうか？
例えば、違うセルにURLのみをコピーする関数など、
あったら教えて下さい。
今は1回1回ハイパーリンクの編集を開いて行っているのですが、非常に数が多いため効率を上げたいと思っています。
まだまだ、素人でよく分からないことが多いのですが、
どうぞよろしくお願いします。

回答No.1

BLUEPIXY · ベストアンサー

ALT+F11で標準モジュールを挿入して貼り付けて使ってください。
使い方：
A1にハイパーリンクが有る時
=linkAddress(A1)
------------------8<-------------------8<-----------------
Public Function linkAddress(r As Range) As String
If r.Hyperlinks.Count > 0 Then '指定したセルにハイパーリンクオブジェクトがある
linkAddress = r.Hyperlinks(1).Address
Else
If InStr(r.Formula, "=HYPERLINK") Then 'HYPERLINK関数を使っている
linkAddress = Mid(r.Formula, 13, InStr(13, r.Formula, """") - 13)
Else
linkAddress = ""
End If
End If
End Function

お礼

夜中なのに大変使える回答ありがとうございました！
使ってみたらばっちりできました！ありがとうございます！