ハイバーリンクを抽出

エクセルを使用時、テキストにリンクが設定されている場合、そのURLのみを別のセルに書き出す場合

ALT+F11で標準モジュールを挿入、下記をコピペする。

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

使い方：
A1にハイパーリンクが有る時
=linkAddress(A1)