vba窗体下拉框如何赋值

在 VBA 窗体下拉框中赋值的方式有两种：使用 Range 对象还是使用 AddItem 方法。
1. 使用 Range 对象：
```vba
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
```
2. 使用 AddItem 方法：
```vba
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
```
请根据实际的需求选择合适的方式进行赋值。