エクセルでハイパーリンク情報（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. それを「実行」

以上です。