hyperlink_to_text_in_excel のバックアップソース(No.1)

バックアップ一覧
差分を表示
現在との差分を表示
バックアップを表示
hyperlink_to_text_in_excel へ行く。
- 1 (2012-08-22 (水) 18:13:35)

[[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) ハイパーリンク抽出を実行