excel原生不支持单元格内多选下拉，但可通过数据验证建单选列表后，用vba实现自动追加、去重、逗号拼接的伪多选效果；需保存为.xlsm格式。
Excel原生不支持单个单元格内点击下拉箭头后勾选多个选项，但可通过VBA代码让目标单元格在每次选择新项时自动追加、去重并拼接为逗号分隔文本，真正实现“视觉+功能”双多选效果。
先建基础下拉列表（数据验证）
这一步是后续VBA生效的前提，没有它，用户无法触发选择动作。选中目标单元格（如D2），切换到【数据】选项卡→点击【数据验证】→“允许”选“序列”，在“来源”框中输入：【苹果,香蕉,橙子,葡萄】（英文逗号分隔，不可用中文顿号或空格）。确认后，该单元格右侧出现下拉箭头，可单选。
插入VBA代码启用多选逻辑
右键当前工作表标签（如Sheet1）→选择【查看代码】，进入VBA编辑器。将下方代码完整复制粘贴到右侧空白窗口中，注意替换代码里的列号和范围：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xOld As String, xNew As String, arr, i As Integer, exists As Boolean
If Not Intersect(Target, Me.Range("D2:D100")) Is Nothing Then
Application.EnableEvents = False
xOld = Trim(Target.Value)
Application.Undo
xNew = Trim(Target.Value)
If xOld = "" Then GoTo exitHandler
If xNew = "" Then Target.Value = xOld Else
arr = Split(xNew, ", ")
exists = False
For i = LBound(arr) To UBound(arr)
If StrComp(Trim(arr(i)), xOld, vbTextCompare) = 0 Then exists = True: Exit For
Next i
If Not exists Then Target.Value = IIf(xNew = "", xOld, xNew & ", " & xOld)
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
这段代码会监控D2:D100区域，每次选中新项都自动检查是否已存在，不存在才追加。【务必保存文件为.xlsm格式，否则关闭再打开后代码失效】
验证与使用
返回Excel界面，点击D2单元格右侧下拉箭头→选择“苹果”→值变为“苹果”；再次点击→选择“香蕉”→值自动变为“苹果, 香蕉”；第三次选“苹果”，内容保持不变，不重复。
按住Ctrl多选？不行。但这是Excel原生能力边界内最贴近真实多选的操作路径：点一下加一项，再点一下加另一项，历史选项全保留。
