案例分享：别再羡慕在线表格了！本地表格也能实现下拉列表多选—手把手教学<<<下>>>

书接上回，错了，是教程接上回<<<https://bbs.wps.cn/topic/101668>>>

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

修复后的关键改动有三处：

改动 1：新增"空值直接放行"分支。

If newValue = "" Then
    Target.Value = ""

新值为空（用户按了 Delete 或清空了内容）时，直接把空值写回去——清空操作从此生效。注意这里写回之前 EnableEvents 已经关掉了，不会触发事件循环。

改动 2：重复判断改为"两侧包裹分隔符"。

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

原写法只在判断串的末尾拼一个分隔符，导致 ", " 在串尾能匹配到空值。修复版在判断串的头尾都拼上分隔符，变成 ", 上海, 北京, 广州, "，要找的也是 ", 新值, " 这种完整包裹形式。这样：

• 判断"上海"是否已存在 → 找 ", 上海, " → 命中，不重复追加；

• 判断空值 → 找 ", , "（两个连续分隔符）→ 不命中；

• 还顺带修了一个原代码的隐性误判：比如选项里有"北京"和"南京"，原写法查"京"结尾的词时可能串位误判，包裹写法只认完整项。

命中重复时，新增 Else Target.Value = oldValue 分支——显式确认保留旧值，逻辑闭环，行为可预期。

改动 3：On Error Resume Next 换成 On Error GoTo exitHandler。

出错时跳转到统一的出口，保证 Application.EnableEvents = True 无论如何都会执行，事件机制永不"卡死"：

On Error GoTo exitHandler
...
exitHandler:
    Application.EnableEvents = True

修复后实测行为：多选追加正常、重复选择不重复追加、Delete 一键清空、出错不静默不卡死。

六、逐行精讲：把每行代码讲到小白能懂

给完全不懂 VBA 的朋友把修复版代码从头到尾拆一遍（懂了的可以跳过这章）：

Private Sub Worksheet_Change(ByVal Target As Range)

这是"事件过程"的标准开头。Worksheet_Change 是固定名字，Excel 约定：工作表内容一变就自动调用它。括号里的 Target 是参数，代表"刚被改动的那（片）单元格"，后面所有操作都围绕它进行。

    Dim delimiter As String: delimiter = ", "

定义一个字符串变量 delimiter（分隔符），值为"逗号+空格"。冒号写法是把"声明"和"赋值"挤在一行。想改成顿号"、"或分号，只改这一处即可。

    Dim oldValue As String, newValue As String

声明两个字符串变量：oldValue 存改动前的内容，newValue 存用户刚选的值。

    On Error GoTo exitHandler

运行时若出错，跳到末尾的 exitHandler 标签。相比 On Error Resume Next（出错装作没事），这种方式保证收尾代码一定执行。

    If Target.Count > 1 Then Exit Sub

如果一次改动涉及多个单元格（比如你全选后按 Delete 批量删除），直接退出过程，不做多选处理——避免批量操作被逻辑搅乱。

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

判断刚改动的单元格是否带数据验证（下拉列表）。没带验证的普通单元格被编辑时不走多选逻辑，直接退出。这行保证了整张表只有下拉格受影响。

    Application.EnableEvents = False

关键保险丝。临时关闭 Excel 的事件响应——因为后面我们要用代码改写单元格，如果不先关事件，改写又会触发 Worksheet_Change，触发后又改写，无限递归直到 Excel 假死。

    newValue = Target.Value

先把用户操作后的当前值（比如刚选的"北京"）抓到 newValue 里。

    Application.Undo

撤销刚才那次键入/选择，单元格瞬间回到改动之前的状态——此时再读单元格，拿到的就是改动前的旧值。

    oldValue = Target.Value

把撤销后的旧值（比如 上海, 广州）存进 oldValue。至此，新旧两个值都在手上，"Undo"只是取旧值的手段，不是最终状态。

    If newValue = "" Then
        Target.Value = ""

修复点 1：新值为空 → 用户想清空 → 直接写回空值。Delete 键从此有效。

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

修复点 2：头尾包裹分隔符的重复判断。InStr(起始位置, 被搜索串, 要找的串) 返回找到的位置，找不到返回 0。= 0 即"旧内容里没有这个新值"，进入追加分支。

        Target.Value = IIf(oldValue = "", newValue, oldValue & delimiter & newValue)

IIf(条件, 真时的值, 假时的值) 是单行 If。旧值为空 → 直接写入新值（第一次选择）；旧值不为空 → 写入"旧值 + 分隔符 + 新值"（追加）。这次写回时事件已关闭，不会递归。

    Else
        Target.Value = oldValue
    End If

修复补充：新值已存在于旧内容中 → 显式写回旧值，即"重复选择等于没选"。行为明确，不依赖 Undo 的残留状态。

exitHandler:
    Application.EnableEvents = True

统一出口：无论正常跑完还是中途出错，都把事件响应重新打开。这行至关重要——忘了它或执行不到，整张表的事件（包括本多选逻辑）都会失灵。

七、扩展玩法与常见问题

1. 想改分隔符？ 只改 delimiter = ", " 这一行，比如改成 "、"（中文顿号，报表里更常见）。

2. 想让一整列都支持多选？ 设置数据验证时选中整个区域（如 B2:B100）再粘贴同一份代码即可——代码里没有任何写死 B2 的东西，它自动对"所有带数据验证的单元格"生效。

3. 选错了想删掉其中一项？ 当前版本不支持"再点一次取消"，直接双击进单元格手动编辑，删掉对应的"××， "即可（手动编辑不经过下拉选择，不受追加逻辑影响）。

4. WPS 能用吗？ WPS 表格支持同样的 VBA 事件语法。个人版需在设置中开启宏功能（或安装 VBA 环境组件），政府/企业专业版一般自带。菜单路径略有差异（"数据有效性"对应 Excel 的"数据验证"），其余步骤完全一致。

5. 打开文件没有反应？ 按顺序排查：① 顶部黄色警告条是否点了"启用内容"；② 文件后缀是否真是 .xlsm（.xlsx 里宏根本存不住）；③ Alt+F11 打开编辑器，确认代码粘贴在工作表代码区（工程树里双击 Sheet 名进去的那个），而不是插入了普通"模块"——事件代码放模块里是不会触发的；④ 按第六章说明检查 Application.EnableEvents 是否被此前出错的代码关掉了（在立即窗口执行 Application.EnableEvents = True 可救回）。

6. 发给别人用？ 对方打开时同样需要点"启用宏"。若对方安全等级很高直接拦截，可让其把文件加入受信任位置，或在"宏安全性"里允许启用。

7. 想做成"再点一次同一项=取消该项"的高级版？ 可以在重复分支里加反向逻辑：把 ", 该项" 从旧字符串里移除再写回。实现思路是字符串替换 + 首尾分隔符清理，感兴趣可以在上面代码的 Else 分支基础上自己扩展，本文就不展开了。

八、总结

一句话记住原理：下拉本身只能单选，"多选"是宏在背后偷偷做的"撤销—拼接—回写"三连；而网上教程翻车的根源，是这套小把戏没给"清空"和"出错"留后路。补上这两条后路，本地表格的多选下拉就和在线表格一样好用了。

整个修复后的成品文件就是本文的案例文件，可以直接拿来当模板：换掉 E 列的选项来源、把数据验证套到自己的单元格区域，就是一套现成的多选下拉。

🎉	以上教程借助了灵犀的协助，顺便表扬下灵犀这次包含修复和调整消耗灵点不到100点，灵犀越来越实用了。