エクセルでハイパーリンク情報（URL)を抽出する方法

ウェブからリストをエクセルにコピペしたときに、ウェブの文字列にリンク先を含んでいることがあります。urlはurlとして情報を取り出しておきたいと思いました。

ヤフー知恵袋　https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1112704276　の回答通りにやったらうまく出来ました。

  1. エクセルで、altキーを押しながらF１１キーを押す。
  2. 開いた画面の「挿入」から「標準モジュール」を選択する。
  3. 画面に、以下のコードを貼り付ける。

Sub ハイパーリンク抽出()

Dim hlink, hcell

For Each hlink In ActiveSheet.Hyperlinks

hcell = hlink.Range.Address

Range(hcell).Offset(0, 1).Value = hlink.Address

Next

End Sub

エクセルに戻り、

  1. メニューで「表示」を選び、
  2. メニューの右に出てくる「マクロ」のアイコンをクリック。
  3. さきほどつくった「ハイパーリンク抽出」というマクロがリストに表示されているので、
  4. それを「実行」

以上です。