如何通過 VBA 代碼填充下拉列表？

Question

excel工作表中的Target.Offset單元格是一個動態數據驗證下拉列表（即依賴於另一個下拉列表）。 我希望它填充其列表的第一個或第二個項目，而不是 Null。

任何簡單的代碼的想法？

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

Answer 1

我在這個論壇上找到了解決方案。 它應該是：

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

從命名范圍“myNamedRange”中的第一個單元格獲取值

鏈接到原始帖子： 從 VBA 中的命名范圍獲取值

謝謝！

Answer 2

只是想在您找到的答案中添加一點，以便您知道如何從該命名范圍中獲取第一個非空白值。

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