Question

excel vba 中我在窗体使用复合框ComboBox1，同时想将其下拉菜单指定到sheet1表中的A列？

当然，只显示有内容的数据。
Private Sub CommandButton1_Click()
For i = 1 To 3
If Range("a" & i).Value = "" Then
Sheet2.Range("A" & i).Value = ComboBox1.Value
End If
Next i
End Sub

Answer 1

在窗体的激活事件中加上

For I = 1 To [A65536].End(xlUp).Row '1 到A列最后有数据的一行

ComboBox1.AddItem Range("A" & I).Value
Next

追问

这么简单啊，我试试去。另外：
For i = 1 To 3
if range("a"&i).Value =""
Sheet2.Range("A" & i).Value = ComboBox1.Value
Else: Next i

它提示我少个then或者go to，应该怎么往里面添加啊？

追答

For i = 1 To 3
if range("a"&i).Value ="" THEN '判断语句 IF 和 THEN 要在同一行，这两个词之间是条件，可以写多个条件，用AND 或者OR 连接。

Sheet2.Range("A" & i).Value = ComboBox1.Value
END IF '这句是IF语句结束的标志，必须要。
Next i

IF 表达式 THEN
语句1
else
语句2
end if

如果表达式成立，执行语句1，如果表达式不成立，执行语句2.其中else可以不要
如：
IF 表达式 THEN
语句1
END IF
如果表达式成立，执行语句1，否则不执行。

追问

哈哈哈，你太牛逼了。如果我要实现：
A列的1到1000行内，如果为空，则直接赋值并跳过，如果不为空，则下一个i继续。也就是说，只需要将A列的一个空单元格赋值即可，我用你那个代码，结果是三行都有值。我改next的位置，它就又会提示我找不到for，怎么修改啊？

追答

HI我详细说吧，没说明白。从哪赋值也没说，

追问

下载了hi，但是总提示无法连接网络，郁闷啊，不好意思，我再表述详细一点吧。
我建了一个窗体。里面有一个复合框ComboBox1，有一个按钮CommandButton1，通过单击按钮实现如下功能：
将我填写的ComboBox1里面的内容复制到空白sheet1表格里面的A列第一个内容为空的单元格，下次再运行该窗体单击按钮CommandButton1后，重复该操作，但是此次应该复制到A列第二行单元格。代码如下：超过长度了。。。

追答

九八七一二二八一七