经常帮用户解决这类Excel多选的需求，原生的数据验证（Data Validation）默认只能单选，不过用一段简单的VBA代码就能轻松搞定你的需求——让单元格显示多个选中的项目，用逗号分隔。下面是具体的实现步骤：

步骤1：先设置基础的下拉菜单 #

首先按照你的需求做好原生的数据验证：

• 选中需要添加下拉功能的单元格
• 切换到「数据」选项卡，点击「数据验证」
• 在弹出的窗口中，「允许」选择「序列」，「来源」输入Item 1,Item 2,Item 3,Item 4,Item 5（注意这里的逗号是英文半角），点击确定后，基础的下拉菜单就完成了

步骤2：添加VBA代码实现多选功能 #

1. 右键点击目标工作表的标签（比如你要操作的Sheet1），选择「查看代码」
2. 在弹出的VBA编辑器窗口中，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OldValue As String
    Dim NewValue As String
    ' 仅对指定单元格生效，这里示例为A1，可根据需求修改
    If Target.Address <> "$A$1" Then Exit Sub
    
    On Error GoTo Exitsub
    ' 检查目标单元格是否设置了数据验证
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
        GoTo Exitsub
    Else
        If Target.Value = "" Then GoTo Exitsub
    End If
    
    Application.EnableEvents = False
    NewValue = Target.Value
    Application.Undo ' 撤销刚做的选择，获取原有内容
    OldValue = Target.Value
    
    If OldValue = "" Then
        Target.Value = NewValue
    Else
        ' 避免重复添加相同项目
        If InStr(1, OldValue, NewValue) = 0 Then
            Target.Value = OldValue & ", " & NewValue
        Else
            Target.Value = OldValue
        End If
    End If

Exitsub:
    Application.EnableEvents = True
End Sub

3. 代码自定义说明：
   • 如果你需要对多个单元格生效，把If Target.Address <> "$A$1" Then Exit Sub改成If Not Intersect(Target, Range("A1:A10")) Is Nothing Then（这里的A1:A10替换成你需要的单元格范围）
   • 代码自带去重逻辑，不会重复添加同一个项目

步骤3：保存并启用宏 #

• 保存文件时，选择「Excel 启用宏的工作簿（.xlsm）」格式，否则宏会丢失
• 再次打开文件时，记得启用宏，代码才能正常工作

无需VBA的替代方案（适合轻量需求） #

如果不想使用宏，你可以尝试用表单控件的复选框来实现：

• 在「开发工具」选项卡中，插入「复选框（表单控件）」，为每个下拉选项添加一个复选框
• 然后用IF函数结合TEXTJOIN函数，把选中的复选框对应的文本合并到目标单元格中
• 不过这种方法设置起来比较繁琐，适合选项较少的场景

内容的提问来源于stack exchange，提问作者user8988923