Question

Excel VBA单元格的下拉列表问题

Dim Rng As RangeSet Rng = Cells(1, "a")With Rng.Validation.Delete.Add Type:=xlValidateList, Formula1:="a,b,c,d"End WithSet Rng = Nothing

问题：怎么样把选项中的a,b,c,d变成变量，对应到c4:c7？
怎么判断c4:c7中有数据，然后拿出来放在下列选项里？
如果c8又加一条数据，则自动加到下拉列表选项里？
需要在后台程序啊，，请高手解答，多谢！

Answer 1

Dim Rng As Range
Set Rng = range("A1")
With Rng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$C$4:$C$7"
End With
Set Rng = Nothing

追问

谢谢您的回答，那怎么判断单元格里有数据啊，，　比如，，c4:c7有数据，，就放进选项里啊，，要是在C8里加数据，，又判断c4:c8有数据，，又加进去的，，依此类推。

追答

这个根本就可以不用VBA

用公式加名称就可以做到

给你个示例

没有数据的行不会出现在列表中

Answer 2

Dim Rng As Range
Set Rng = Cells(1, "a")
With Rng.Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$C$4:$C$65536"
End With
Set Rng = Nothing