时间戳

首页 > 解决方案 > 如何通过 VBA 代码填充下拉列表？

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

问题描述

excel 工作表中的Target.Offset 单元格是一个动态数据验证下拉列表（即依赖于另一个下拉列表）。我希望它填充其列表的第一项，或者可能是第二项，而不是 Null。

任何想法的简单代码？

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

标签： excelvba

解决方案

只是想在您找到的答案中添加一点内容，以便您知道如何从该命名范围中获取第一个非空白值。

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

推荐阅读