如何在Excel中创建可多选下拉列表并批量应用至300余行单元格

可以实现，以下是无需逐行配置的完整操作步骤：

1. 准备选项配置 #

• 新建一个空白工作表，命名为选项配置，在该工作表A列按字母顺序从上到下填入你的20个指定选项
• 选中所有20个选项单元格，在Excel界面左上角的名称框（公式栏左侧的输入框）输入可选列表，按回车确认完成名称定义

2. 插入复选框样式的列表框控件 #

• 回到需要录入数据的目标工作表，点击顶部「开发工具」选项卡 → 「插入」→ 「ActiveX 控件」分类下的「列表框」，在工作表任意位置绘制一个大小适配选项的列表框
• 右键点击绘制好的列表框，选择「属性」，按如下要求配置参数：
  • ListFillRange 填写可选列表，绑定你提前整理的选项
  • ListStyle 选择1-fmListStyleOption，启用复选框样式
  • MultiSelect 选择1-fmMultiSelectMulti，支持多选操作
  • Visible 选择False，设置列表框默认隐藏
  • 可自行调整Width、Height参数适配你的显示需求

3. 配置批量生效的VBA事件代码 #

• 右键点击目标工作表的底部标签，选择「查看代码」，在弹出的VBA编辑窗口中粘贴如下代码：

Dim 目标单元格 As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Integer
    Dim 结果字符串 As String
    
    ' 判定选中单元格是否在A2:A366的录入范围内
    If Not Intersect(Target, Range("A2:A366")) Is Nothing And Target.Count = 1 Then
        Set 目标单元格 = Target
        ' 列表框移动到当前选中单元格右侧并显示
        With ListBox1
            .Top = Target.Top
            .Left = Target.Left + Target.Width
            .Visible = True
            ' 先清空原有选中状态
            For i = 0 To .ListCount - 1
                .Selected(i) = False
            Next i
            ' 回显当前单元格已有选中内容
            If Target.Value <> "" Then
                Dim 已选数组 As Variant
                已选数组 = Split(Target.Value, ";")
                For i = 0 To .ListCount - 1
                    If Not IsError(Application.Match(.List(i), 已选数组, 0)) Then
                        .Selected(i) = True
                    End If
                Next i
            End If
        End With
    Else
        ' 点击范围外区域时保存结果并隐藏列表框
        If ListBox1.Visible = True And Not 目标单元格 Is Nothing Then
            结果字符串 = ""
            ' 按选项顺序拼接，自动满足字母排序要求
            For i = 0 To ListBox1.ListCount - 1
                If ListBox1.Selected(i) = True Then
                    If 结果字符串 = "" Then
                        结果字符串 = ListBox1.List(i)
                    Else
                        结果字符串 = 结果字符串 & ";" & ListBox1.List(i)
                    End If
                End If
            Next i
            目标单元格.Value = 结果字符串
            ListBox1.Visible = False
            Set 目标单元格 = Nothing
        End If
    End If
End Sub

• 粘贴完成后关闭VBA编辑器即可

4. 使用说明 #

• 点击A2到A366之间的任意单元格，列表框会自动弹出，勾选需要的选项后点击表格其他任意位置，当前单元格就会自动填入按字母顺序、分号分隔的选中内容
• 每一行的选择结果独立存储，互不影响

注意事项 #

• 如果顶部菜单栏没有「开发工具」选项，可点击「文件」→「选项」→「自定义功能区」，勾选右侧列表中的「开发工具」后确认即可显示
• 保存文件时需要选择「Excel 启用宏的工作簿(*.xlsm)」格式，否则VBA代码会丢失，功能无法生效
• 后续需要修改可选选项时，仅需调整「选项配置」工作表中的内容即可，所有行的下拉选项会自动同步，无需额外配置

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