我这里是微软office的版本，其它版本大同小异：1、数据校验入口2、设置数据3、sheet页右击查看代码4、复制下面代码进去：5、效果如下：Option ExplicitSub Worksheet_Change(ByVal Target As Range)'让数据有效性选择 可以多选,重复选Dim rngDV As RangeDim oldV...