1、新建一个Excel文档，另存为 启用宏的工作簿，后缀名为xlsm格式。并在工作表2（即sheet 2）中输入需要做成下拉菜单选项的内容，如图所示。
3、绘制按钮后，会自动弹出一个“指定宏”窗口，选择“新建”。
5、在Sub 按钮1_Click()和End Sub之间，复制粘贴以下代码：Dim rng As RangeSet rng = S髫潋啜缅election With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:="=sheet2!$a$1:$a$4" ’引用可自行更改 .IgnoreBlank = True .InCellDropdown = True .InputTitle = "" .ErrorTitle = "" .InputMessage = "" .ErrorMessage = "" .IMEMode = xlIMEModeNoControl .ShowInput = True .ShowError = True End With
