Office 365中VBA语句Range(c.Validation.Formula1)返回Nothing

Office 365 调整了数据验证对象Formula1属性的返回规则，和Excel 2019等旧版本不兼容的点包括：

• 所有引用类型的列表源，Formula1返回值强制携带前缀=，旧版本部分场景下会直接返回无等号的纯地址字符串，直接传入Range()方法无法被识别为合法区域地址
• 跨工作表引用、工作表名含空格/特殊字符时，返回的字符串会增加转义单引号，部分动态数组版本还会隐式绑定工作表上下文，全局调用Range()时会因上下文不匹配返回Nothing
• 直接用Application.Evaluate处理原始返回值时，365存在已知的解析bug，无法正确转换带前缀的引用为Range对象

对Formula1返回值做前置清洗后，按工作表→工作簿→全局的上下文逐层解析引用，兼容跨表、命名范围、结构化表引用场景：

Function ListSourceRange(c As Range) As Range
    Dim vType As Long, rng As Range
    Dim formulaText As String

    ' 检测单元格是否存在数据验证，无验证直接退出
    On Error Resume Next
    vType = c.Validation.Type
    On Error GoTo 0
    If vType <> 3 Then Exit Function ' 3对应xlValidateList，非列表类型验证直接返回空

    ' 清洗Formula1返回值，移除开头的等号前缀
    formulaText = c.Validation.Formula1
    If Left$(formulaText, 1) = "=" Then formulaText = Mid$(formulaText, 2)

    On Error Resume Next
    ' 优先在单元格所属工作表上下文解析
    Set rng = c.Worksheet.Range(formulaText)
    ' 工作表级别解析失败时，在工作簿级别解析（兼容跨表引用、工作簿级命名范围）
    If rng Is Nothing Then Set rng = c.Worksheet.Parent.Evaluate(formulaText)
    ' 兼容结构化表引用、应用级命名范围场景
    If rng Is Nothing Then Set rng = Application.Range(formulaText)
    On Error GoTo 0

    Set ListSourceRange = rng
End Function

• 若数据验证列表源为手动输入的逗号分隔值而非单元格引用，函数会按原有逻辑返回Nothing，不会报错
• 代码兼容Excel 2013及以上所有版本，无需为不同Office版本写分支判断
• 不要保留原始Formula1值的等号前缀做解析，否则365环境下仍会出现解析失败的问题

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