将数据验证列表重置为第一项，方法范围失败

Question

所以另一位用户建议了一种将一系列单元格重置为其各自数据验证列表第一项的方法（如 this screenshot 中突出显示的那样，他和 this other user 建议了相同的解决方案，但我不断收到运行时错误“方法” Range' has failed" 在以下行：
Cell.Value = Range(Split(Mid(Cell.Validation.Formula1, 2), ":")(0)).Value

my actual worksheet 如果需要。

我被卡住了，我们将不胜感激。

Answer 1

以下是您的问题的三个解决方案。它们的不同之处在于数据验证中的列表是如何定义的。

Private Sub Test()

    Dim Cell As Range

    ' Cell contains a comma separated list
    Set Cell = Cells(2, 2)
    Cell.Value = Split(Cell.Validation.Formula1, ",")(0)

    ' Cell contains a reference to a named range
    ' but should also work for a worksheet reference
    Set Cell = Cells(4, 2)
    Cell.Value = Range(Mid(Cell.Validation.Formula1, 2)).Cells(1).Value

    ' cell contains a reference to a range
    Set Cell = Cells(6, 2)
    Cell.Value = Range(Split(Mid(Cell.Validation.Formula1, 2), ":")(0)).Value
End Sub