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"

为Combox添加选项有几个方法

1、窗体设计时

在属性窗口中找到List属性，直接添加即可，如下图：

2、通过代码添加

Combo1.AddItem "内容"

---