エクセルのセルにリンク設定された URL を抽出する

Windows Excel
  1. リンクが設定された Excel のブックを開く。
  2. ALT + F11 で Microsoft Visual Basic for Application ウィンドウを開く。
  3. 挿入メニューから標準モジュールを選択する。
  4. 新規モジュールに後述するコードを張り付ける。モジュール名は任意につけていい。
  5. そして、URLを表示したいセルに次の function を記述し、リンクが設定されているセルを指定する。
Function exportURL(ByVal Target As Excel.Range) As String
Application.Volatile
On Error Resume Next
exportURL = Target.Cells(1).Hyperlinks(1).Address
End Function

例えば、A1 のセルに設定されたリンクの URL を表示したい場合は、任意のセルに、
=exportURL(A1)
と記述すれば、URLが表示される。