vba设置下拉菜单

Sub 设置序列是否()

    Dim i As Long
    i = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
    
    With Range("B1:B" & i).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="是,否"
        .IgnoreBlank = True
    End With
'			删除原设置的序列
'    	表示创建下拉列表验证。
'    	输入非法值时弹出错误提示
'    	直接指定选项列表（逗号为英文符号）
    
End Sub