- 追加された行はこの色です。
- 削除された行はこの色です。
#freeze
[[data_handling]]
エクセルのセルに埋め込まれたハイパーリンクからURLをテキストで抽出
-エクセルのセルに埋め込まれたハイパーリンクからURLをテキストで抽出
ハイパーリンクをA列に置いたシートを作成しておく
(B列は空けておく)
ハイパーリンクをA列に置いたシートを作成しておく~
(B列は空けておく)~
1) alt+F11
2) 開いた画面の挿入から標準モジュールを選択
3) 以下のコードを貼り付け
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)ハイパーリンク抽出を実行~
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) ハイパーリンク抽出を実行