在VBA中添加组合框和选项的简单方法是使用Worksheet对象的DropDowns集合。下面是一个示例代码：

Sub AddComboBox()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cbo As DropDown
    
    ' 设置工作表对象
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 设置组合框的位置
    Set rng = ws.Range("A1")
    
    ' 添加组合框
    Set cbo = ws.DropDowns.Add(rng.Left, rng.Top, rng.Width, rng.Height)
    
    ' 添加选项到组合框
    cbo.List = Array("选项1", "选项2", "选项3")
    
    ' 设置组合框的默认选项
    cbo.Value = "选项1"
    
    ' 设置组合框的标题
    cbo.Caption = "选择一个选项"
    
    ' 设置组合框的样式
    cbo.Style = fmStyleDropDownList ' 仅允许选择列表中的选项
    
End Sub

这个示例代码将在工作表的A1单元格位置添加一个组合框，并向组合框中添加三个选项。您可以根据需要修改位置、选项和样式。