hyperlink_to_text_in_excel の変更点 - GIS/RS ナレッジベース

追加された行はこの色です。
削除された行はこの色です。
hyperlink_to_text_in_excel へ行く。
hyperlink_to_text_in_excel の差分を削除

[[data_handling]]

-エクセルのセルに埋め込まれたハイパーリンクからURLをテキストで抽出

ハイパーリンクをA列に置いたシートを作成しておく~
（B列は空けておく）~

1)alt＋F11~
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~

+++++コード終了+++++++
4)エクセル画面に戻る~
5)表示タブ→マクロ→マクロの表示~
6)ハイパーリンク抽出を実行~

エクセル画面に戻る~
表示タブ→マクロ→マクロの表示~
ハイパーリンク抽出を実行~