如何根据表值填充单元内下拉列表？

Question

我正在尝试使用VBA创建动态的单元内下拉列表。目前，我已经根据输入的值填充了下拉列表。但是，随着我预见到该程序的用途将不断增长，我希望使下拉列表动态化。是否有办法让VBA遍历表并根据第1列中的值填充下拉列表？[]

下面是我目前拥有的代码；如您所见，基于我在其中硬编码的值，公式值是静态的：

Sub Dropdown_Setup()
'Setup appropriate template dropdowns on 'template' sheet

    Set wB = ThisWorkbook
    Set tempSht = ThisWorkbook.Sheets("Template")

'Populate 'machine' dropdown
    With tempSht.Range("$B$15").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Formula1:="H1 - EOS M280, H2 - SLM, H4 - CL M2, H5 - EOS M400, H6 - SLM 2.0"
        .IgnoreBlank = True
        .InCellDropdown = True
    End With

End Sub
任何帮助将不胜感激。

我正在尝试使用VBA创建动态的单元内下拉列表。目前，我已经根据输入的值填充了下拉列表。但是，正如我预见的那样，该程序的用法...

Answer 1

您可以遍历yur listobject第一栏中的每个单元格，并建立一个逗号分隔的字符串，可以将其分配给Formula1进行验证。