一、写在前面：这个需求你一定遇到过

很多人用过在线表格（腾讯文档、金山文档、飞书表格之类），发现人家原生就支持"下拉列表多选"——点开下拉框，勾选几项，单元格自动变成"北京、上海、广州"这样的形式，非常方便。

回到本地的 Excel / WPS 表格，数据验证（数据有效性）自带的下拉列表却只能单选：你选了"上海"，再选"北京"，上海就被覆盖掉了。想在一个格里同时记录多个标签（比如一个人负责多个城市、一个项目涉及多个品类），只能手动往格里敲字，还容易敲错、分隔符不统一。

本文以我亲手搭建并踩坑修复过的一个真实文件《多选下拉列表.xlsm》为案例，从零开始讲清楚：原理是什么、代码怎么加、每个字是什么意思、以及最关键的——网上教程抄来的代码普遍有一个"多选之后清不掉"的 Bug，怎么发现、怎么修。

不用懂编程，照着做就行；想弄明白原理的，每一段代码我都逐行拆解了。

二、成品长什么样

先看效果，确认这是不是你要的东西：

1. 目标单元格（比如 B2）设置了数据验证下拉列表，选项来源是另一片区域（比如 E3:E9 里的"北京/上海/广州/成都/杭州/武汉/西安"）。

2. 点开 B3 的下拉箭头，选"上海"→ 单元格显示 上海；

3. 再点开下拉，选"北京"→ 单元格变成 上海， 北京（自动追加，不会覆盖）；

4. 再选"广州"→ 变成 上海， 北京， 广州；

5. 重复选已有的项（比如再点一次"北京"）→ 不会重复追加，内容保持不变；

6. 按 Delete 键 → 单元格清空，可以重新从头选。（这一条就是本文要重点修的 Bug，后面细说。）

实现这一切，核心就是一段不到 30 行的 VBA 代码。

三、原理：为什么本地 本地工作簿 下拉框天生不能多选？

表格 的"数据验证→序列"下拉列表，本质是一个只读的选择器：你在下拉里点某一项，WPS 做的事情就是"把这个值写进单元格"，仅此而已。它没有任何"累积""勾选"的概念。

但 表格 提供了一个强大的钩子机制——事件（Event）。工作表模块里可以写一个叫 Worksheet_Change 的过程，意思是：只要这张表上任何单元格的内容发生变化，就自动执行这段代码。

于是多选的思路就出来了，整个逻辑只有三步：

1. 用户在下拉里选了一个新值，Excel 把它写进单元格；

2. Worksheet_Change 事件被触发，我们趁机干三件事：

• 用 Application.Undo 撤销刚才那次写入，把单元格变回选之前的旧内容；

• 判断旧内容里是不是已经有这个新值了（防重复）；

• 没有的话，把"旧内容 + 分隔符 + 新值"重新写回单元格。

3. 用户看到的实际效果就是：每次选择都是"追加"而不是"覆盖"——多选完成。

这里有一个必须理解的细节：代码里自己写回单元格，又会触发一次 Worksheet_Change，如果不处理就会无限循环。所以代码里写回之前要先用 Application.EnableEvents = False 把事件暂时关掉，写完再打开。这是所有此类教程代码的第一块基石。

另一个细节：Worksheet_Change 会对所有单元格生效，我们只想让"设置了下拉列表的单元格"走多选逻辑，所以要用 Target.SpecialCells(xlCellTypeAllValidation) 判断触发的单元格是否带有数据验证——不带就直接退出。

四、从零搭建：跟着做一遍（以本案例文件为例）

第 1 步：准备选项来源

在工作表的空白区域（案例里放在 E 列）竖着录入所有可选项，比如 E2:E8。这一列可以放在同一张表，也可以放在另一张表甚至隐藏起来。

第 2 步：给目标单元格设置数据验证下拉

1. 选中目标单元格（案例里是 B2；如果要多行都能多选，就选中整个区域）；

2. 菜单栏 →【数据】→【数据验证】（WPS 叫"数据有效性"）；

3. "允许"选【序列】；

4. "来源"框选 E3:E9（或直接填 =E3:E9）；

5. 确定退出。此时点单元格应该已经有单选下拉了。

第 3 步：打开 VBA 编辑器，进入工作表代码区

1. 快捷键 Alt + F11 打开 VBA 编辑器；

2. 左侧工程资源管理器里，双击你的数据所在的那张工作表（案例里是 Sheet1）——注意不是随便一个模块，代码必须放在工作表自己的代码区，事件才会生效；

3. 右侧出现空白代码窗口。

第 4 步：粘贴多选代码

把下面这段（修复版，原因见第五章）完整粘贴进去：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim delimiter As String: delimiter = ", "
    Dim oldValue As String, newValue As String
    On Error GoTo exitHandler

    If Target.Count > 1 Then Exit Sub
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    newValue = Target.Value
    Application.Undo
    oldValue = Target.Value

    If newValue = "" Then
        Target.Value = ""
    ElseIf InStr(1, delimiter & oldValue & delimiter, delimiter & newValue & delimiter) = 0 Then
        Target.Value = IIf(oldValue = "", newValue, oldValue & delimiter & newValue)
    Else
        Target.Value = oldValue
    End If

exitHandler:
    Application.EnableEvents = True
End Sub

第 5 步：另存为"启用宏的工作簿"

这一步最容易翻车：直接 Ctrl+S 保存，Excel 会弹警告——普通 .xlsx 格式不能保存宏代码，如果选了"否"另存，代码就丢了。

正确做法：【文件】→【另存为】→ 文件类型选 "Excel 启用宏的工作簿 (*.xlsm)"。这就是为什么这类文件后缀是 .xlsm 而不是 .xlsx。

第 6 步：启用宏，开始使用

重新打开文件时，顶部会出现黄色安全警告条，点【启用内容】/【启用宏】，否则代码不会运行，下拉就退化成单选。然后就可以按第二章描述的效果愉快使用了。

五、重点：网上教程代码的通病——"多选之后清不掉"

我是怎么发现问题的

按网上文章"依葫芦画瓢"做完，多选功能一切正常。但实际用的时候发现一个致命问题：一旦选了内容，这个单元格就再也清不空了——（2024年看过我那个回复的同学肯定知道这个情况）

• 按 Delete：内容纹丝不动，还是原来那串"上海， 北京， 广州"；

• 想重新选：只能在旧内容后面继续追加，越积越长；

• 唯一的办法是手动进单元格里把字删掉，但只要单元格还带着数据验证，正常操作路径下就是清不掉。

网上那篇教程的原始代码是这样的：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim delimiter As String: delimiter = ", "
    Dim oldValue As String, newValue As String
    On Error Resume Next

    If Target.Count > 1 Then Exit Sub
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then Exit Sub

    Application.EnableEvents = False
    newValue = Target.Value
    Application.Undo
    oldValue = Target.Value

    ' 检查重复项
    If InStr(1, oldValue & delimiter, newValue & delimiter) = 0 Then
        Target.Value = IIf(oldValue = "", newValue, oldValue & delimiter & newValue)
    End If

    Application.EnableEvents = True
End Sub

Bug 的根源：两处逻辑缺陷

<借助灵犀查出来的>

缺陷一：重复判断的写法有漏洞，把"空值"误判成了"重复项"。

看这一行：

If InStr(1, oldValue & delimiter, newValue & delimiter) = 0 Then

它的本意是：在"旧内容+分隔符"里找"新值+分隔符"，找不到（返回 0）才追加。但拆开看按 Delete 时的场景：

• 此时 newValue = ""（空字符串），oldValue = "上海, 北京, 广州"；

• 判断串变成了：在 "上海, 北京, 广州, " 里找 ", "；

• ", " 就明晃晃地藏在判断串的末尾，InStr 返回的是 14，不等于 0；

• 于是走"重复了，不追加"的分支——但代码在这个分支里什么都没做，而 Application.Undo 已经把单元格恢复成了旧的多选内容。

结果就是：你的清空操作被代码"原样驳回"，Delete 键形同虚设。而且清不掉的根子在于，这个分支里根本没有"接受用户操作"的动作——无论你是清空还是选了重复项，代码都保持 Undo 后的旧值，看起来就是"操作无效"。

缺陷二：On Error Resume Next 掩盖错误，还可能留下"事件永久关闭"的隐患。

原代码第一行就 On Error Resume Next（出错就跳过继续跑）。配合 Application.EnableEvents = False，一旦中间任何一步出错，最后一行 Application.EnableEvents = True 可能执行不到，事件从此保持关闭状态——症状是多选功能整体失灵，而且因为报错被静默吞掉，你根本不知道哪里出了问题，只能重启 Excel。这是调试此类宏最常见的"玄学故障"。

修复方案（就是第四章给你的那段代码）

未完待续，字数超了，请看下篇>>>>>>>https://bbs.wps.cn/topic/101669