Question

如何用VB实现在EXCEL单元格中添加序列，如“1,2,3,”

Answer 1

问题没说清楚，EXCEL是外部的调用还是内部的控件？不同的情况要区别的。
外部调用可以在OPEN一个EXCEL的时候自动运行添加有效性序列的代码，内部控件还要看是什么控件，SpSheet控件可以从HTML格式的表格导入，自动会把有效性带入，当然代码也可以完成。
仅供参考！

Answer 2

Sub 小晕()
Range("C1").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="1,2,3" '此处是序列
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
End Sub

追问

这段代码是EXCEL录制宏自动生成的代码，
我试过没法在VB 6.0中直接调用，
请问该如何移植到VB 6.0中？

追答

抱歉，BV 6.0没有使用过。不知道下面的链接文档有没有可能帮助到你
http://wenku.baidu.com/search?word=VB6.0+%C8%E7%BA%CE%C9%E8%D6%C3%CF%C2%C0%AD&lm=0&od=0&fr=top_search