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


トップ   編集 凍結解除 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2012-08-22 (水) 18:16:38 (4345d)