在窗体的激活事件中加上 For I = 1 To [A65536].End(xlUp).Row '1 到A列最后有数据的一行 ComboBox1.AddItem Range("A" & I).Value Next
