Question

VBA代码实现在一个单元格中添加数据有效性下拉菜单。

Answer 1

如下这段，就是先选中 A列，然后设置它的下拉菜单数据为：ABC,BCD,CDE,DEF
如果下拉菜单数据来源于单元格，则把 Formula1:="ABC,BCD,CDE,DEF" 换成单元格地址，比如 Formula1:="=$B$1:$B$3" 这样即可。

Sub Macro1()
Columns("A:A").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="ABC,BCD,CDE,DEF"
End With
End Sub

有疑问，请Hi我或给我发百度消息
GoodLuck!