EXCELのハイパーリンク抜き出しマクロ

EXCELでハイパーリンクを抜き出す方法

Alt+F11で標準モデュールを挿入し、下記関数を定義する

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