EXCEL VBA组合框中添加新的选项，

Private Sub ComboBox1_Click()

    [A1] = ComboBox1.Text  '赋值到单元格

End Sub

Private Sub UserForm_Initialize()

    ComboBox1.AddItem "AAAA"   '添加

    ComboBox1.AddItem "BBBB"

    ComboBox1.AddItem "CCCC"

End Sub

添加的语句对的

其他可能的问题:

1.窗体是否为userform

2.组合框是否名为combobox1、combobox2

3.excl文件是否能读取

建议有目的性的分步实现,逐步排查问题.比如要证实组合框是否能添加项,在窗体中加入按钮,事件为给组合框添加一个"aaa"

---