Как заполнить выпадающий список кодом VBA?

Question

Ячейка Target.Offset на листе Excel представляет собой раскрывающийся список динамической проверки данных (т.е. зависит от другого раскрывающегося списка).Я хочу, чтобы он был заполнен первым, или, может быть, вторым элементом списка, а не пустым.Любая идея простого кода?Большое спасибо!

     Target.Offset(0, 1).MergeArea.Value = Null 

Answer 1

просто хотел добавить немного к ответу, который вы нашли, чтобы вы знали, как получить первое непустое значение из этого именованного диапазона.

Sub FirstFilledInNamedRange()

    Dim rng As Range
    Set rng = ThisWorkbook.Names("myNamedRange").RefersToRange

    Dim val As String
    val = rng.Find(What:="*", After:=rng(rng.rows.count, rng.Columns.count)).Value2

    MsgBox val

End Sub

Answer 2

Я нашел решение на этом форуме.Должно быть:

 = ThisWorkbook.Names("myNamedRange").RefersToRange(1,1)

Чтобы получить значение из первой ячейки в именованном диапазоне «myNamedRange»

ссылка на исходную запись: Получение значения из именованного диапазонав VBA

Спасибо!