如何在Excel中创建具有多个选择或值的下拉列表？
默认情况下，您只能在 Excel 的数据验证下拉列表中选择一项。 如何在下拉列表中进行多项选择，如下 gif 所示？ 本文中的方法可以帮助您解决问题。
使用VBA代码创建具有多个选择的下拉列表
1) 允许在一个下拉列表中多选，不重复
2) 允许在下拉列表中进行多项选择而不重复（通过再次选择删除现有项目）
使用出色的工具轻松创建具有多个选择的下拉列表
下拉列表的更多教程...
使用VBA代码创建具有多个选择的下拉列表
本节提供两个 VBA 代码来帮助您在工作表的下拉列表中进行多项选择。 这两个VBA代码可以实现：
VBA 代码 1：允许在下拉列表中进行多项选择而不重复
VBA代码2：允许在下拉列表中进行多项选择而没有重复（通过再次选择删除现有项目）
您可以应用以下 VBA 代码之一在 Excel 工作表的下拉列表中进行多项选择。 请执行以下操作。
1. 打开包含要从中进行多项选择的数据验证下拉列表的工作表。 右键单击工作表选项卡并选择 查看代码 从上下文菜单。
2.在 Microsoft Visual Basic应用程序 窗口，将下面的VBA代码复制到代码窗口中。 看截图：
VBA 代码 1：允许在下拉列表中进行多项选择而不重复
Private Sub Worksheet_Change(ByVal Target As Range)
Updated by Extendoffice 2019/11/13
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
If Target.Count > 1 Then Exit Sub
On Error Resume Next
Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
If Not Application.Intersect(Target, xRng) Is Nothing Then
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or _
InStr(1, xValue1, ", " & xValue2) Or _
InStr(1, xValue1, xValue2 & ",") Then
Target.Value = xValue1
Else
Target.Value = xValue1 & ", " & xValue2
End If
End If
End If
End If
Application.EnableEvents = True
End Sub
3。 按 其他 + Q 关闭键 Microsoft Visual Basic应用程序 窗口。
现在您可以从当前工作表的下拉列表中选择多个项目。
假设您不小心选择了一个项目并且需要在不清除整个单元格并重新开始的情况下将其删除。 下面的 VBA 代码 2 可以帮你一个忙。
VBA代码2：允许在下拉列表中进行多项选择而没有重复（通过再次选择删除现有项目）
Private Sub Worksheet_Change(ByVal Target As Range)
Updated by Extendoffice 2023/01/11
Updated by Ken Gardner 2022/07/11
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
Dim semiColonCnt As Integer
Dim xType As Integer
If Target.Count > 1 Then Exit Sub
On Error Resume Next
xType = 0
xType = Target.Validation.Type
If xType = 3 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" Then
If xValue2 <> "" Then
If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then leave the value if only one in list
xValue1 = Replace(xValue1, "; ", "")
xValue1 = Replace(xValue1, ";", "")
Target.Value = xValue1
ElseIf InStr(1, xValue1, "; " & xValue2) Then
xValue1 = Replace(xValue1, xValue2, "") removes existing value from the list on repeat selection
Target.Value = xValue1
ElseIf InStr(1, xValue1, xValue2 & ";") Then
xValue1 = Replace(xValue1, xValue2, "")
Target.Value = xValue1
Else
Target.Value = xValue1 & "; " & xValue2
End If
Target.Value = Replace(Target.Value, ";;", ";")
Target.Value = Replace(Target.Value, "; ;", ";")
If Target.Value <> "" Then
If Right(Target.Value, 2) = "; " Then
Target.Value = Left(Target.Value, Len(Target.Value) - 2)
End If
End If
If InStr(1, Target.Value, "; ") = 1 Then check for ; as first character and remove it
Target.Value = Replace(Target.Value, "; ", "", 1, 1)
End If
If InStr(1, Target.Value, ";") = 1 Then
Target.Value = Replace(Target.Value, ";", "", 1, 1)
End If
semiColonCnt = 0
For i = 1 To Len(Target.Value)
If InStr(i, Target.Value, ";") Then
semiColonCnt = semiColonCnt + 1
End If
Next i
If semiColonCnt = 1 Then remove ; if last character
Target.Value = Replace(Target.Value, "; ", "")
Target.Value = Replace(Target.Value, ";", "")
End If
End If
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
:
1）。 下拉列表中不允许出现重复值。
2）。 上面的 VBA 代码 2 由我们的热心用户 Ken Gardner 于 2022/07/11 提供。
3）。 请将工作簿另存为 Excel启用宏的工作簿 为了使代码在将来继续工作。
4）。 添加 VBA 代码 2 后，您可以通过在下拉列表中再次选择现有项目来删除它。 请看下面的 gif：
使用出色的工具轻松创建具有多个选择的下拉列表
如您所见，上面的 VBA 代码并不好处理。 在此强烈推荐 多选下拉列表 的特点 Kutools for Excel 帮助您通过点击轻松处理此任务。 使用此功能，您可以根据需要轻松地从下拉列表中选择指定范围、当前工作表、当前工作簿或所有打开的工作簿中的多个项目。
Tips:: 在应用此工具之前，请先安装 Kutools for Excel 首先。 立即前往免费下载.
选择
Kutools >
下拉列表 >
多选下拉列表.
在
多选下拉列表
对话框，进行以下设置。
2.1) 指定你想应用这个特性的地方 设定范围 部分;
2.2) 指定单元格中选中项的分隔符；
2.3) 决定文字方向；
2.4）点击 OK.
结果
备注: 要应用此功能，请 下载并安装 Kutools for Excel 第一。
相关文章：
在Excel下拉列表中键入时自动完成 如果您有一个包含大值的数据验证下拉列表，则需要在列表中向下滚动以查找合适的列表，或直接在列表框中键入整个单词。 如果在下拉列表中键入第一个字母时有允许自动完成的方法，一切将变得更加容易。 本教程提供了解决问题的方法。
在Excel中从另一个工作簿创建下拉列表 在工作簿中的工作表之间创建数据验证下拉列表非常容易。 但是，如果数据验证所需的列表数据位于另一个工作簿中，您将怎么办？ 在本教程中，您将详细了解如何从Excel中的另一个工作簿创建拖放列表。
在Excel中创建可搜索的下拉列表 对于具有众多价值的下拉列表，找到合适的价值并非易事。 以前，我们已经介绍了一种在下拉框中输入第一个字母时自动完成下拉列表的方法。 除了自动完成功能之外，您还可以使下拉列表可搜索，以提高在下拉列表中查找适当值时的工作效率。 为了使下拉列表可搜索，请尝试本教程中的方法。
在Excel下拉列表中选择值时自动填充其他单元格 假设您已经基于单元格区域B8：B14中的值创建了一个下拉列表。 在下拉列表中选择任何值时，都希望在选定单元格中自动填充单元格范围C8：C14中的相应值。 为了解决该问题，本教程中的方法将对您有所帮助。
下拉列表的更多教程...
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
***
*** ***
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
