有个快的方法，用数据源属性 Private Sub UserForm_Initialize() ComboBox1.RowSource = "sheet1!A1:A10"End Sub将sheet1!A1:A10的内容放到ComboBox1的列表中
