Excel中实现多选下拉列表需分三步：一、用数据有效性设单选下拉；二、用辅助列+TEXTJOIN公式模拟多选；三、用VBA代码实现真正原地多选。
如果您希望在Excel中限制用户输入内容的类型或范围，或者为单元格创建可多选的下拉列表，则需要借助数据有效性功能并结合其他辅助手段实现。以下是具体操作步骤：
一、设置基础数据有效性（单选下拉列表）
此方法通过数据有效性功能创建标准下拉列表，仅允许用户从预设选项中选择一项，是构建多选前提的基础设置。
1、选中需要设置下拉列表的目标单元格或单元格区域。
2、点击【数据】选项卡，选择【数据验证】（部分版本显示为“数据有效性”）。
3、在弹出窗口中，将【允许】下拉框设置为序列。
4、在【来源】框中输入选项内容，各选项间用英文逗号分隔，例如：苹果,香蕉,橙子,葡萄；或直接引用工作表中已有的连续单元格区域，如：Sheet2!$A$1:$A$4。
5、勾选【忽略空值】和【提供下拉箭头】，点击【确定】。
二、使用辅助列+公式模拟多选效果（无需VBA）
Excel原生数据有效性不支持多选，但可通过在相邻列设置多个独立下拉列表，并用连接符合并显示，实现视觉与操作上的多选替代方案。
1、在目标单元格右侧依次插入若干空白列（如B列、C列、D列），每列均按“一、”方法设置相同的数据源下拉列表。
2、在原始目标列（如A列）中输入公式，将后续各列内容合并显示，例如在A1输入：=TEXTJOIN("、",TRUE,B1:D1)。
3、隐藏B、C、D等辅助列，仅保留A列作为最终显示区域。
4、为防止误删，可对B1:D1区域设置【锁定】并启用工作表保护，密码可为空或自设。
三、通过VBA代码实现真正多选下拉列表
此方法利用Worksheet_SelectionChange事件捕获用户点击动作，在单元格内动态追加或移除选项，实现原地多选交互。
1、右键点击工作表标签，选择【查看代码】，打开VBA编辑器。
2、粘贴以下代码到对应工作表模块中（注意替换"Sheet1"为实际工作表名，"A1:A100"为目标区域）：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitSub
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitSub
If rngDV Is Nothing Then GoTo exitSub
If Intersect(Target, Range("A1:A100")) Is Nothing Then GoTo exitSub
If Intersect(Target, rngDV) Is Nothing Then GoTo exitSub
If Target.Validation.Type 3 Then GoTo exitSub
oldVal = Target.Value
NewVal = InputBox("请输入要添加/删除的选项（当前值：" & oldVal & "）")
If Trim(NewVal) = "" Then GoTo exitSub
If oldVal = "" Then
Target.Value = NewVal
Else
If InStr(1, oldVal, NewVal) > 0 Then
Target.Value = Replace(oldVal, NewVal & "、", "")
Target.Value = Replace(Target.Value, "、" & NewVal, "")
Target.Value = Replace(Target.Value, NewVal, "")
Else
Target.Value = oldVal & "、" & NewVal
End If
End If
exitSub:
End Sub
3、关闭VBA编辑器，返回Excel，确保宏安全性设置允许运行该工作表的代码。
4、点击已设数据有效性的单元格，即可通过输入框添加或删除选项，选项间以顿号分隔。
