Excelデータの埋め込まれているURLを表示

Excelデータ内で組み込まれているURL(リンク)を取得する関数がQuiitaに公開されていました。
https://qiita.com/nomico/items/b93ca6b3c0644583e7cb

 

ExcelでVBAのモジュールに次のコードを組み込みます。

 

Function GetHyperlink(セル As Range) As String

        Dim sp As Shape

        If セル.Hyperlinks.Count > 0 Then

                GetHyperlink = セル.Hyperlinks(1).Address

        End If

        For Each sp In ActiveSheet.Shapes

                If セル.Address = sp.TopLeftCell.Address Then

                        GetHyperlink = GetHyperlink & vbLf & sp.Hyperlink.Address

                End If

        Next

End Function

 


あとは、Excelの通常の関数と同じように利用します。
関数名は、 =GetHyperlink(セル番地) です。

インターネットなどから、コピーしたデータからリンク先を取得するときに利用しています。