質問: Excel2013での出来事です。 自身のPCフォルダやファイルを素早く開くショートカット目的として C:\Program Files\ などをハイパーリンクで設定しています。
回答: これでどうでしょうか? アクティブシートのハイパーリンクのアドレスを置換します。 Sub test() Dim Str1 As String Dim Str2 As String Dim i As Hyperlink Str1 = "AppuData\Roaming\Microsoft\Excel" '置換対象の文字 Str2 = "Music\Aデータ" '置換する文字 For Each i In ActiveSheet.Hyperlinks i.Address = Replace(i.Address, Str1, Str2) Next i End Sub