答案：通过ActiveX复选框、VBA代码或辅助列函数组合，可在Excel中实现多选下拉菜单。首先使用ActiveX控件关联复选框与单元格，结合TEXTJOIN合并选中项；其次利用VBA监听数据验证单元格更改事件，实现选项追加；最后可通过TEXTSPLIT与FILTER函数动态生成未选列表，提升交互体验。
如果您希望在Excel中实现一个单元格内可以选择多个选项的下拉菜单，但发现默认的数据验证功能仅支持单选，可以通过以下方法实现多选下拉列表功能。
本文运行环境：Surface Laptop 5，Windows 11
一、使用ActiveX复选框控件组合实现多选
通过插入多个复选框控件并将其与单元格关联，可以实现视觉上清晰的多选效果，适用于需要固定选项且交互性强的场景。
1、切换到“开发工具”选项卡，点击“插入”，在“ActiveX控件”中选择“复选框”。
2、在工作表中绘制多个复选框，并逐一右键编辑其标题为所需选项名称，如“苹果”、“香蕉”、“橙子”。
3、右键每个复选框，选择“属性”，将“LinkedCell”属性设置为同一目标单元格，例如“$D$2”。
4、关闭设计模式后点击各个复选框，选中状态将在目标单元格以TRUE/FALSE数组形式体现。
5、使用公式如=TEXTJOIN(", ",TRUE,IF(D2:D4=TRUE,A2:A4,""))将选中项合并显示在指定单元格中。
二、利用数据验证结合VBA实现真正的多选下拉
通过编写VBA代码监听单元格更改事件，可在用户每次选择时追加选项而非覆盖，从而实现真正的多选下拉功能。
1、右键工作表标签，选择“查看代码”进入VBA编辑器。
2、粘贴如下代码到工作表模块中：
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 Exit Sub
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeDataValidation)
On Error GoTo errHandler
If Intersect(Target, rngDV) Is Nothing Then Exit Sub
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If oldVal = "" Then
'首次选择不做拼接
Else
If InStr(1, oldVal, newVal) = 0 Then
Target.Value = oldVal & ", " & newVal
End If
End If
errHandler:
Application.EnableEvents = True
End Sub
3、返回Excel，对目标单元格设置数据验证为“序列”，输入源选项如“苹果,香蕉,橙子”。
4、启用宏后，点击下拉选择任一选项，再次选择时会自动追加而非替换原有内容。
三、使用辅助列与函数动态生成可选列表
结合FILTER函数和TEXTSPLIT等新函数，可构建动态更新的多选提示列表，适合展示已选项并防止重复选择。
1、在辅助区域列出所有可选项，并添加对应布尔值列用于标记是否选中。
2、在目标单元格手动输入以逗号分隔的多个选项，例如“苹果, 橙子”。
3、使用=TEXTSPLIT(A1,", ")将字符串拆分为数组进行处理。
4、利用=FILTER(选项列表,ISNA(MATCH(选项列表,已选数组,0)))生成剩余未选选项列表供参考。
5、配合条件格式高亮已选项目，提升可视化体验。
