エクセルで、ハイパーリンクのアドレスを一括変更 / Replace the address of hyperlink all at once with Excel

まず、開発メニューを表示する

ファイル > オプション > リボンのユーザー設定: 「開発」にチェック

対象のシートモジュールに貼って実行

Sub test()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Dim h As Hyperlink
    Dim cw As String

    For Each h In Hyperlinks
        cw = h.Address
        cw = Replace(cw, "共有1/", "共有2/")
        h.Range(1) = cw
        h.Range(1).Hyperlinks(1).Address = cw
        h.TextToDisplay = FSO.GetBaseName(cw) ' リンクの文字はファイル名のみ
    Next
End Sub

Sub test()

Dim FSO As Object

Set FSO = CreateObject("Scripting.FileSystemObject")

Dim h As Hyperlink

Dim cw As String

For Each h In Hyperlinks

cw = h.Address

cw = Replace(cw, "共有1/", "共有2/")

h.Range(1) = cw

h.Range(1).Hyperlinks(1).Address = cw

h.TextToDisplay = FSO.GetBaseName(cw) ' リンクの文字はファイル名のみ

End Sub

※実行前にはバックアップ推奨、処理時間長くかかります

参照

http://www.excel.studio-kazu.jp/kw/20160729103457.html
https://kokodane.com/2013_macro_01.htm
http://officetanaka.net/excel/vba/filesystemobject/filesystemobject13.htm

—

Teleworking, now…

まず、開発メニューを表示する

対象のシートモジュールに貼って実行

参照

コメントを残す