首先，选中Excel某个或多个单元格上，选择上面菜单面板的“数据”，然后选择“数据验证”及其后的“数据验证”菜单项，然后在弹出来的对话框中，按下图显示选择验证条件是“序列”，来源中输入准备设置的多选项，此时该单元格应该已经可以支持有下拉箭头的单选列表。
如果需要多选，这时候需要鼠标右键单击这个表（sheet），即在Excel下方类似Sheet1的标签处右键单击，然后选择弹出菜单中的“查看代码”，之后编辑其中的VBA代码为下面的代码，注意要运行该Excel文件的宏功能。
Private 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
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 2 Then
If oldVal = "" Then
Else
If newVal = "" Then
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
If Target.Column = 3 Then
If oldVal = "" Then
Else
If newVal = "" Then
Else
Target.Value = oldVal _
& ", " & newVal
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
这样对该表的第2和第三列都已经支持多选了，可以试验一下。
如果要支持更多的列，把高亮的代码部分复制到下方，把Target.Column =后面的数字改成该列的序号即可。
修改完了不要忘了保存该VBA代码，然后就可以多选了，效果如下图所示。
