vbaでハイパーリンクのワイルドカードを変更する

Question

Excelのハイパーリンクでワイルドカード文字を削除/置換する際の助けが必要です。 論理的にはとても簡単ですが、それは私の能力を超えています。

私は、PDF文書へのハイパーリンクを含むスプレッドシートを持っています。ハイパーリンクには "＃"文字が含まれており、ファイルパスが機能しなくなります。ハイパーリンクでは、単に "＃"を "％23"に変更する必要があり、リンクが機能します。私はリンクの量のためにこれを手動でしたくありません。 VBAでこれを達成する方法はありますか？ファイルパスを変更するのは簡単ですが、ハイパーリンクを検索して＃を変更することは可能ではないようです。それはアンカータイプのリンクを示唆するように -

すべてのハイパーリンクが.SubAddressとして.Addressとして#の左に、右に列A.

Answer 1

Excelの扱いのテキストです。

For Each lk In Sheets("YourSheetName").Range("A:A").Hyperlinks 
    If lk.SubAddress <> "" Then 
     lk.Address = lk.Address & "%23" & lk.SubAddress 
     lk.SubAddress = "" 
    End If 
Next