変更されたリンク先を正しいものに修正したい

エクセル２０１３を使っています。
サーバー上にあり、誰もが使えるエクセルがフリーズしてしまい、
自動回復してデータを救えたのは良いのですが、リンク先がＣドライブになってしまいました。

不具合があることは考えず、以前のファイルをサーバー上から削除してしまったため、
やり直すことが出来ず、自動回復ファイルを原本として使っています。

後になって気付いたのですが、ハイパーリンクの基点に【￥】を入れて
絶対参照にしました。
また、自動回復のファイルの場所は、Ｃドライブではなく、サーバー上の保管しているフォルダを
していしました。

ですが、おかしくなってしまったハイパーリンクが１００以上あり、とても困っています。
これを一律修正することは可能でしょうか。

おかしくなったハイパーリンクは、
正しいハイパーリンクの参照先が○○○￥△△￥□□□￥エクセルファイル．ｘｌｓとするならば、
おかしくなったハイパーリンクは、最初のだけがＣドライブになっています。
ｃ：￥×××￥×××￥□□□￥エクセルファイル．ｘｌｓとなっており、ハイパーリンクの最初の半分くらいを元のアドレスに書き換えれば、きちんと参照してくれました。

しかし、いかんせんハイパーリンクがはってある件数が多くてひとつひとつ修正するのは
現実的ではないと思うのです。

どうしたらハイパーリンクのアドレス１００以上を一挙に修正できますか。

No.2 回答者： bonaron 回答日時： 2017/10/13 01:19

アクティブなシートのハイパーリンクを書き換えるマクロの例です。

Sub Sample1()
　Dim hyper As Hyperlink
　For Each hyper In ActiveSheet.Hyperlinks
　　hyper.Address = Replace(hyper.Address, "ｃ：￥×××￥×××", "○○○￥△△")
　Next
End Sub

この回答へのお礼

回答ありがとうございます。
お礼が遅れました。

この間、既に問題は自己解決していました。
絶対参照とリンクアドレスの余分を同じようなマクロで削除して
全件復旧できていました。

今後の参考にさせていただきます。
ありがとうございました。

お礼日時：2017/10/17 23:53

No.1 回答者： chonami 回答日時： 2017/10/12 09:46

置換ではできないですか？

https://detail.chiebukuro.yahoo.co.jp/qa/questio …

この回答へのお礼

普通は出来ませんよ

お礼日時：2017/10/17 23:53