URL指定されてるセルからURLを取る

関数作ってそれを呼ぶ

標準モジュールに以下追加

Function GetURL(lnk As Range) As String
Dim Add As String
If lnk.Hyperlinks.Count > 0 Then
    With lnk.Hyperlinks(1)
        If .Address Like "http*" Then
        Add = .Address
        End If
    End With
End If
If Add <> "" Then
    GetURL = Add
Else
    GetURL = ""
End If
End Function