如何创建可点击下拉复选清单以填充Excel单元格并支持批量应用？

以下两种方案均可满足需求，可根据你使用的表格工具选择：

方案1：Excel全版本适用（需VBA） #

步骤1：准备候选数据源 #

• 找空白区域（例如Sheet2的A1:A20），按字母顺序录入20个候选项，选中该区域定义名称为候选列表

步骤2：配置基础数据验证 #

• 选中A2:A366区域，依次点击「数据」→「数据验证」
• 允许类型选择「序列」，来源输入=候选列表，勾选「提供下拉箭头」后确认

步骤3：添加VBA事件代码实现多选逻辑 #

• 右键点击当前工作表标签，选择「查看代码」打开VBA编辑器
• 粘贴如下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim OldVal As String, NewVal As String
    Dim Arr() As String
    ' 限定仅A2:A366区域生效
    If Target.Column = 1 And Target.Row >= 2 And Target.Row <= 366 Then
        On Error Resume Next
        Application.EnableEvents = False
        NewVal = Target.Value
        Application.Undo
        OldVal = Target.Value
        Target.Value = NewVal
        ' 拼接去重+排序
        If OldVal <> "" And NewVal <> "" Then
            If InStr(1, OldVal, NewVal) = 0 Then
                Arr = Split(OldVal & ";" & NewVal, ";")
                Call SortArray(Arr)
                Target.Value = Join(Arr, ";")
            Else
                Target.Value = OldVal
            End If
        End If
        Application.EnableEvents = True
    End If
End Sub

' 字母排序子程序
Sub SortArray(arr As Variant)
    Dim i As Integer, j As Integer, Temp As Variant
    For i = LBound(arr) To UBound(arr) - 1
        For j = i + 1 To UBound(arr)
            If arr(i) > arr(j) Then
                Temp = arr(j): arr(j) = arr(i): arr(i) = Temp
            End If
        Next j
    Next i
End Sub

• 保存文件为*.xlsm启用宏格式即可使用，每次从下拉选择新项会自动拼接、去重、按字母排序，用分号分隔。

方案2：WPS表格适用（无需代码） #

• 选中A2:A366区域，依次点击「数据」→「插入下拉列表」
• 选择「多选」模式，导入提前排好序的20个候选项
• 分隔符设置为;，勾选「自动排序选项」后确认即可直接使用。

内容的提问来源于stack exchange，提问作者GL_99