如何修改Excel VBA自定义URL函数，让非超链接单元格返回空值？

原函数在单元格没有超链接时会返回#VALUE!错误，以下两种修改方式都能实现「有超链接返回地址，无超链接返回空值」的需求：

方法1：错误捕获法 #

通过开启错误捕获，当访问不存在的超链接时直接返回空值：

Function URL(Hyperlink As Range)
    On Error Resume Next
    URL = Hyperlink.Hyperlinks(1).Address
    If Err.Number <> 0 Then
        URL = ""
    End If
    On Error GoTo 0
End Function

方法2：先判断超链接数量 #

先检查目标单元格是否包含超链接，再决定返回值：

Function URL(Hyperlink As Range)
    If Hyperlink.Hyperlinks.Count > 0 Then
        URL = Hyperlink.Hyperlinks(1).Address
    Else
        URL = ""
    End If
End Function

两种方式都能解决问题：方法1代码更紧凑，方法2逻辑更直观，可根据习惯选择。

内容的提问来源于stack exchange，提问作者Fliteman