本示例检查单元格A1是否包含超级链接,如果有则显示该链接的地址。
Set link = Range("a1").Hyperlink
If link Is Nothing Then
MsgBox ("No Links")
Else
MsgBox (link.TextToDisplay)
End If