在 VBA 窗體下拉框中賦值的方式有兩種：使用 Range 對象或者使用 AddItem 方法。
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改為實際的工作表名稱
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 獲取最后一行
Dim rng As Range
Set rng = ws.Range("A2:A" & lastRow) ' A 列的數據范圍，修改為實際的列范圍
Me.ComboBox1.List = rng.Value ' 將數據范圍的值賦給下拉框的列表
End Sub
Private Sub UserForm_Initialize()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改為實際的工作表名稱
Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 獲取最后一行
Dim i As Long
For i = 2 To lastRow ' 從第二行開始遍歷到最后一行
Me.ComboBox1.AddItem ws.Cells(i, "A").Value ' 將每行的值添加到下拉框的列表中
Next i
End Sub
請根據實際的需求選擇適合的方式進行賦值。
