Microsoft Office Excel

Excelでは、ハイパーリンクを置換する機能が提供してないため、VBAで目的を実現する

Sub ChangeHyperlink()
    For Each c In ActiveSheet.Hyperlinks
         c.Address = Replace(c.Address, "置換対象パス", "置換後パス")
    Next
End Sub

コメント：

お名前:

(画像の文字列を入力して下さい)