Excel VBA表单下拉框如何动态读取Sources工作表A列数据？

要让createPurchaseOrder表单的sourceDropDown下拉框动态读取Sources工作表A列的所有数据，且支持后续列表扩容，只需修改UserForm_Initialize过程中的下拉框填充逻辑，替换原来的固定添加项代码即可。

修改后的UserForm_Initialize完整代码 #

Sub UserForm_Initialize()
    
    Dim orderQty As Double
    Dim sourceSheet As Worksheet
    Dim sourceRange As Range
    Dim cell As Range

    orderQty = findQuantity

    purchOrd.Value = ""
    
    sourceDropDown.Clear
    ' 引用Sources工作表
    Set sourceSheet = ThisWorkbook.Worksheets("Sources")
    ' 获取A列所有连续非空数据区域（自动适配扩容）
    Set sourceRange = sourceSheet.Range("A1").CurrentRegion
    ' 遍历区域内的单元格，添加到下拉框
    For Each cell In sourceRange
        If cell.Value <> "" Then ' 跳过空单元格
            sourceDropDown.AddItem cell.Value
        End If
    Next cell
    
    mmCode = ""
    orderQuantity = orderQty
    releaseDate = ""
    purchOrd.SetFocus

End Sub

关键说明 #

• 使用Range("A1").CurrentRegion可以自动识别A列从A1开始的连续非空数据区域，后续在A列新增数据时，无需修改代码就能自动加载到下拉框
• 增加了空值判断，避免下拉框出现空白选项
• 保留了sourceDropDown.Clear，确保每次打开表单时下拉框都是清空状态，不会重复添加旧数据

其余代码（EnterPurchaseOrder、ShowUserForm、findQuantity）无需改动，保持原有逻辑即可。

内容的提问来源于stack exchange，提问作者Jan V