Excel单元格做多选下拉框

最近做数据筛选，有些列是固定的几个选项，并要求可以多选。新版本的excel和wps能不能实现不知道，但是默认情况下2016版的wps没法。

研究了一下，AI给了个解决方案，亲测好用。

一、准备下拉列表源

1. 在任意空白列（如 Z 列）依次输入：

• 退货
• 促销
• 调拨
• 冻结
• 关注
• 补货

2. 选中这些单元格 → 公式 → 定义名称 → 名称填 ActionList → 确定。

二、给“处理结果”列加下拉

选中需要多选的单元格区域（如 C2:C1000）→ 数据 → 有效性（或者数据验证） → 允许：序列 → 来源：=ActionList → 确定。

此时依旧只能单选，接下来用 VBA 让它支持多选。

三、插入 VBA 代码

1. 按 Alt+F11 打开 VBA 编辑器。
2. 左侧找到对应工作表（如 Sheet1），双击打开。
3. 把下面代码整段粘进去即可：

'========== 支持多选下拉（逗号分隔） ==========
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngDV As Range
    Dim oldVal As String, newVal As String
    
    '如果改动区域不在“处理结果”列，直接退出
    Set rngDV = Me.Range("C2:C1000")   '←改成你的实际区域
    If Intersect(Target, rngDV) Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    newVal = Target.Value
    Application.Undo
    oldVal = Target.Value
    
    If oldVal = "" Then
        Target.Value = newVal
    ElseIf newVal = "" Then
        Target.Value = ""
    ElseIf 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, "")
        If Left(Target.Value, 2) = ", " Then Target.Value = Mid(Target.Value, 3)
    End If
    
    Application.EnableEvents = True
End Sub

4. 关闭 VBA 编辑器，保存数据，并将表格另存为.xlsm格式。
5. 重新打开文件，点击“处理结果”列的下拉箭头，可以连续勾选多个动作，结果自动以“退货, 促销, 调拨”形式写入单元格；再次点击已选项可取消。

注意事项

• 文件需保存为 .xlsm（启用宏），并重启表格程序。
• 若区域或列号不同，只需把代码里的 C2:C1000 改成实际范围即可。