1、打开excel程序，在sheet1表单A1：A4中输入值，用作为一次性赋于combox控件的值。
2、再依次在工具栏中点击“开发工具”——“Visual Basic”或直接按快捷键"Alt+F11"，打开“Microsoft Visual Basic”窗口。
3、在“Microsoft Visual Basic”窗口中，点击“插入”——“用户窗体”，并如下图所示，在用户窗体上分别添加一个“ComboBox”组件和一个"CommandButton1"组件。
4、双击窗口中的按钮，打开代码编辑窗口，如下图所示输入以下代码：
Me.CmbxCity.RowSource = "sheet1!a1:a4"
5、按“F5”运行vba代码，在运行后窗口中点击按钮，然后再点击“ComboBox”控件，下拉框中就可以看到sheet1表中的A1:A4的值了。
6、我们还可以如下更换按钮中的代码，运行后，同样可以实现给“ComboBox”控件赋多值的效果：
Dim ListCity
ListCity = ThisWorkbook.Sheets(1).Range("a1:a4")
Me.CmbxCity.List = ListCity
7、除了可以将sheet表单中的值一次性赋给"ComboBox”控件外，我们也可以自定义赋值内容，如下，首先定义了一个变量，先给它赋值成list对象，最后再将它的值赋给"ComboBox”控件，实现了赋多值。
Dim ListCity
ListCity = [{"北京";"天津";"河北";"河南"}]
Me.CmbxCity.List = ListCity
