Question

EXCEL VBA中,如何给ComboBox赋值指定的值

如上图:把 "红、橙、黄、绿、青、蓝、紫" 放到ComboBox下拉表中，代码要如何写？

Answer 1

Sub s()
    For i = 5 To 29 Step 4
        Sheet1.ComboBox1.AddItem Cells(2, i)
    Next
End Sub

追问

让列表里的“数据”清空呢？怎么写？

追答

这是另外一个问题了，再开个帖子问