通过数据验证和VBA可实现Excel多选下拉列表。首先为B2:B10创建含苹果、香蕉等选项的序列验证，再启用开发工具插入VBA代码监听更改事件，利用Intersect判断目标区域，通过InStr和Replace实现多选拼接与删除，最后调整列宽、换行并用命名区域管理选项源以提升可维护性。
如果您希望在Excel中实现一个可以多选的下拉列表，以便用户能从预设选项中选择多个项目，而不是仅限于单个选择，可以通过结合数据验证与VBA编程来实现此功能。以下是具体操作步骤：
本文运行环境：Dell XPS 13，Windows 11
一、使用数据验证创建基础下拉列表
通过数据验证功能可以快速创建一个只允许单选的下拉菜单，这是构建多选功能的基础。
1、选中需要添加下拉列表的单元格区域，例如B2:B10。
2、点击“数据”选项卡中的“数据验证”按钮。
3、在弹出的对话框中，将“允许”条件设置为序列。
4、在“来源”框中输入选项内容，如：苹果,香蕉,橙子,葡萄（注意用英文逗号分隔）。
5、点击“确定”，此时该单元格区域已具备基础下拉功能。
二、启用开发者选项并插入VBA代码
VBA脚本能够监听单元格的更改事件，并实现多选拼接逻辑，是实现多选功能的核心部分。
1、右键点击功能区，选择“自定义功能区”，勾选“开发工具”以显示该选项卡。
2、进入“开发工具”选项卡，点击“Visual Basic”打开VBA编辑器。
3、在左侧工程资源管理器中，双击对应工作表名称（如Sheet1）。
4、粘贴以下代码到代码窗口中：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, oldVal As String, newVal As String, cell As Range
Set rng = Me.Range("B2:B10")
If Intersect(Target, rng) Is Nothing Then Exit Sub
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Application.Undo
If oldVal = "" Then
Target.Value = newVal
Else
If InStr(1, oldVal, newVal) = 0 Then
Target.Value = oldVal & ", " & newVal
Else
Target.Value = Replace(oldVal, ", " & newVal, "")
Target.Value = Replace(Target.Value, newVal & ", ", "")
Target.Value = Replace(Target.Value, newVal, "")
Target.Value = Trim(Target.Value)
End If
End If
Application.EnableEvents = True
End Sub
三、调整单元格格式与选项管理
为了提升用户体验，应对单元格格式进行优化，并确保选项来源清晰可维护。
1、将存放多选结果的列（如B列）设置为“自动换行”，便于查看长文本。
2、右键列标题选择“列宽”，适当增加宽度以容纳多个选项。
3、将所有选项集中放置在单独的工作表或区域（如Sheet2的A列），便于统一维护。
4、修改数据验证中的“来源”引用为命名区域或绝对引用，例如：=$A$1:$A$4。
