スポンサードリンク

2018年05月16日

Excelのハイパーリンクを一気に書き換える方法

Excelシートに沢山のハイパーリンクを張って、資料管理等をしている場合、
文書を格納しているフォルダを移動したりすると、リンクの書き換えが大変です。
そんな時に使えそうな、大量のリンクを一気に書き換える方法です。

ちなみに、CTRL+F で置換等も試してみましたが、ハイパーリンクは置換できませんでした。
「出来た」と書かれているページもありましたが、どうやると出来るのやら?
私は、マクロでやりました。

例)
ハイパーリンクの設定されたセル範囲 B2:B101
\\server1\data へのリンクを
\\server1\data\file1 に変更する。

マクロを使用します。

Alt+F11でVBAの画面を起動、
「挿入」⇒「標準モジュール」を選択、
以下のマクロをコピーして貼り付けます。

Sub ハイパーリンクの書き換え()
 Dim H As Hyperlink
 For Each H In Range("B2:B101").Hyperlinks
  H.Address = Replace(H.Address, "\data", "\data\file1")
 Next
End Sub

Alt+F11でExcelの画面に戻り、Alt+F8で、上のマクロを実行すると、ハイパーリンクが置き換わります。

posted by まさ at 13:11| Comment(0) | Excel
システム管理者日記」の先頭へ