使用VBA创建ComboBoxes列表，用于更新代码中指定的单元格的值

Sub CreateComboBox()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cbo As ComboBox
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 设置ComboBox的位置和大小
    Set rng = ws.Range("A1")
    Set cbo = ws.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=rng.Left, Top:=rng.Top, Width:=rng.Width, Height:=rng.Height).Object
    
    ' 添加选项到ComboBox
    cbo.AddItem "选项1"
    cbo.AddItem "选项2"
    cbo.AddItem "选项3"
    
    ' 更新指定单元格的值
    ws.Range("B1").Value = cbo.Value
End Sub