Excel2013 单元格中 添加可以多选的下拉框

首先弄好 下拉单选的，[data(数据)-- data validation(数据验证) -- 选 list (列表)-- 输入 你的所有选项，用英文逗号分割开]
然后--开发工具（默认隐藏的，在Excel的file(文件)--options(选项)--customize ribbon--勾选 developer）--view code
在打开的 VBA中，粘贴下面的代码，点击保存按钮，提示框点击确定。



代码来自：刘L the Blog

------------ 我是分割线，不要复制我----------------
Option Explicit


Sub Worksheet_Change(ByVal Target As Range)
'让数据有效性选择 可以多选,重复选
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler


On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler


If rngDV Is Nothing Then GoTo exitHandler


If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If oldVal = "" Then
Else
If newVal = "" Then
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If


exitHandler:
Application.EnableEvents = True
End Sub
------------ 我是分割线，不要复制我----------------

 

 

.