如何从下拉列表中选择多个项目到Excel中的单元格中？
下拉列表在Excel的日常工作中经常使用。 默认情况下，在下拉列表中只能选择一项。 但有时，您可能需要从下拉列表中将多个项目选择到一个单元格中，如下图所示。 如何在Excel中处理它？
 |
 |
 |
使用Kutools for Excel的便捷选项从下拉列表中选择多个项目到单元格中
从下拉列表中选择多个项目到带有VBA的单元格中
这里有一些VBA可以帮您解决此工作。
从单元格的下拉列表中选择重复项
1.创建下拉列表后，右键单击工作表选项卡以选择 查看代码 从上下文菜单。
2.然后在 Microsoft Visual Basic应用程序 窗口，将下面的代码复制并粘贴到空白脚本中。
VBA：从单元格的下拉列表中选择多个项目
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20210409
Dim xRgVal As Range
Dim xStrNew As String
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
Application.EnableEvents = False
xStrNew = Target.Value
Application.Undo
If xStrNew = Target.Value Then
Else
xStrNew = xStrNew & " " & Target.Value
Target.Value = xStrNew
End If
Application.EnableEvents = True
End Sub
3.保存代码并关闭窗口以返回到下拉列表。 现在，您可以从下拉列表中选择多个项目。
注意：
1.使用VBA，它可以按空格分隔项目，您可以更改 xStrNew = xStrNew＆ “” ＆ 目标价值 他人根据需要更改定界符。 例如， xStrNew = xStrNew＆“，" ＆ 目标价值 将用逗号分隔项目。
2.此VBA代码适用于工作表中的所有下拉列表。
从下拉列表中选择多个项目到一个单元格，无需重复
如果只想从下拉列表中选择一个唯一项，则可以重复上述步骤并使用以下代码。
VBA：从下拉列表到单元格中选择多个项目，无需重复
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20180510
Dim I As Integer
Dim xRgVal As Range
Dim xStrNew As String
Dim xStrOld As String
Dim xFlag As Boolean
Dim xArr
On Error Resume Next
Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
Application.EnableEvents = False
xFlag = True
xStrNew = " " & Target.Value & " "
Application.Undo
xStrOld = Target.Value
If InStr(1, xStrOld, xStrNew) = 0 Then
xStrNew = xStrNew & xStrOld & " "
Else
xStrNew = xStrOld
End If
Target.Value = xStrNew
Application.EnableEvents = True
End Sub
使用Kutools for Excel的便捷选项从下拉列表中选择多个项目到单元格中
如果您不熟悉VBA代码，则可以 免费安装 方便的工具- Kutools for Excel，其中包含一组有关下拉列表的实用程序，并且有一个选项 多选下拉列表 可以帮助您轻松地从下拉列表中的单元格中选择多个项目。
创建下拉列表后，请选择下拉列表单元格，然后单击 库工具 > 下拉列表 > 多选下拉列表 启用此实用程序。
然后可以将选定的下拉列表单元格选择到该单元格中的多个项目。
如果您是第一次使用此选项，则可以在应用此实用程序之前根据需要指定此实用程序的设置。
单击 库工具 > 下拉列表 >旁边的箭头 多选下拉列表 > 设置.
然后在 多选下拉列表设置 对话框，您可以
1）根据需要指定适用范围；
2）指定物品放置方向；
3）指定项目之间的分隔符；
4）指定是否不添加重复项并删除重复项。
单击 Ok 并点击 库工具 > 下拉列表 > 多选下拉列表 发挥作用。
小技巧：要应用 多选下拉列表 实用程序，您需要 安装 首先。 如果要创建具有多个级别的下拉列表，则以下实用程序可能会为您提供帮助。
在Excel中轻松创建动态的2级或多级依赖下拉列表
|
| 在Excel中，创建2级或多级下拉列表很复杂。 在这里 动态下拉列表 实用程序 Kutools for Excel 可以帮你一个忙。 您唯一要做的就是按所示示例对数据进行排序，然后选择数据范围和输出范围，然后将其留给实用程序。 点击免费试用30天！ |
 |
| Kutools for Excel：拥有300多个便捷的Excel加载项，可以在30天内免费试用。 |
最佳办公效率工具
Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％
- 重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西； 加密单元 带密码 创建邮件列表 并发送电子邮件...
- 超级公式栏 （轻松编辑多行文本和公式）； 阅读版式 （轻松读取和编辑大量单元格）； 粘贴到过滤范围...
- 合并单元格/行/列 不会丢失数据； 拆分单元格内容； 合并重复的行/列...防止细胞重复； 比较范围...
- 选择重复或唯一 行; 选择空白行 （所有单元格都是空的）； 超级查找和模糊查找 在许多工作簿中； 随机选择...
- 确切的副本 多个单元格，无需更改公式参考； 自动创建参考 到多张纸； 插入项目符号，复选框等...
- 提取文字，添加文本，按位置删除， 删除空间; 创建和打印分页小计； 在单元格内容和注释之间转换...
- 超级滤镜 （将过滤方案保存并应用于其他工作表）； 高级排序 按月/周/日，频率及更多； 特殊过滤器 用粗体，斜体...
- 结合工作簿和工作表; 根据关键列合并表； 将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
- 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
Office选项卡为Office带来了选项卡式界面，使您的工作更加轻松
- 在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
- 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
- 每天将您的工作效率提高50％，并减少数百次鼠标单击！
