data_handling

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

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

1) alt＋F11 2) 開いた画面の挿入から標準モジュールを選択 3) 以下のコードを貼り付け

  1. ++以下よりコード+++++++

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. ++コード終了+++++++

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

トップ   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS