リンク先の抽出方法について

質問

ハイパーリンクによりリンク先が設定されているエクセルデータがあります。
データ件数は約1000件です。
このエクセルデータをCSVで保存したときに、
リンク先に設定されているURLがCSVに保存されません。
そのため、CSV保存前に、URLを別セルに抽出するなどの
操作が必要かと思っているのですが、その方法がわかりません。

そこでお尋ねします。
リンク先に設定されているURLを、
一括で抽出する方法についてご存知の方、ご教授お願いします。

よろしくお願いします。

回答No.1

KenKen_SP · ベストアンサー

こんにちは。

標準モジュールにこんな感じのユーザー定義関数を書いて、

　　数式：　=GetLinkAddress(A1)

とするとか。あとはフィルでコピー。

' // リンク先を取り出す
Public Function GetLinkAddress(ByVal r As Range) As String
　　On Error Resume Next
　　With r(1).Hyperlinks(1)
　　　　GetLinkAddress = IIf(Len(.Address) > 0, .Address, .SubAddress)
　　End With
End Function

お礼

大変参考になりました。
ご回答ありがとうございました。