Question

excel工作表中的Target.Offset单元格是一个动态数据验证下拉列表（即，取决于另一个下拉列表）。我希望它填充列表的第一项或第二项，而不是Null。任何简单代码的想法？非常感谢！

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

Answer 1

我在此论坛中找到了解决方案。应该是：

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

要从命名范围“ myNamedRange”中的第一个单元格获取值

链接到原始帖子： Getting a value from a named range in 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

如何通过VBA代码填充下拉列表？

2 个答案: