Сбросить валидацию данных Перечисляет первый элемент, диапазон методов не выполнен

Question

поэтому другой пользователь предложил способ сброса диапазона ячеек в соответствующие элементы первых списков проверки данных (как выделено в на этом скриншоте он и этот другой пользователь предложил такое же решение , но я продолжаю получать сообщение об ошибке «метод Range не удалось» в следующей строке:
Cell.Value = Range (Split (Mid (Cell.Validation.Formula1, 2), ":") (0)). Значение

мой фактический рабочий лист , если необходимо.

Я застрял, помощь будет принята с благодарностью.

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