ハイパーリンクをリンク先アドレス表記へ

ハイパーリンクをリンク先アドレス表記へ

ハイパーリンクのリンク先アドレスの表記にしたい場合は、下記のように記載します。
Dim link As Range

For Each link In ActiveSheet.UsedRange
If link.Hyperlinks.Count = 1 Then
link.Value = link.Hyperlinks(1).Address
End If
Next
上記を実行すると、全てのハイパーリンクがアドレス表記になります。