Question

excel VBA中 复合框赋值问题

ComboBox1.RowSource = "sheet1!A1:A50"
上面这句可以把A列1到50行赋值给复合框。
但是有时只有前 i 行有数据（i<50）
我想知道的是怎么可以把上面的50改为变量 i ？

Answer 1

前面加个窗体名试试
窗体名.ComboBox1.RowSource = "sheet1!A1:A" & i

Answer 2

ComboBox1.RowSource = "sheet1!A1:A" & i

追问

亲测，不行啊

追答

ComboBox1 你是放在什么地方的，用户窗体还是 sheet中

追问

我是放在了窗体中，请问有解吗

追答

用循环
dim i as long
dim j as long
dim sht as worksheet
set sht=sheets("sheet1")
set i=sht.range("A1").end(xlup).row
for j=1 to i
ComboBox1.additem sht.cells(i,1)
end j