如何在Excel中创建具有多个选择或值的下拉列表？

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

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

2.1) 指定你想应用这个特性的地方 设定范围 部分;

2.2) 指定单元格中选中项的分隔符；

2.3) 决定文字方向；

2.4）点击 OK.

在Excel下拉列表中键入时自动完成 如果您有一个包含大值的数据验证下拉列表，则需要在列表中向下滚动以查找合适的列表，或直接在列表框中键入整个单词。 如果在下拉列表中键入第一个字母时有允许自动完成的方法，一切将变得更加容易。 本教程提供了解决问题的方法。

在Excel中从另一个工作簿创建下拉列表 在工作簿中的工作表之间创建数据验证下拉列表非常容易。 但是，如果数据验证所需的列表数据位于另一个工作簿中，您将怎么办？ 在本教程中，您将详细了解如何从Excel中的另一个工作簿创建拖放列表。

在Excel中创建可搜索的下拉列表 对于具有众多价值的下拉列表，找到合适的价值并非易事。 以前，我们已经介绍了一种在下拉框中输入第一个字母时自动完成下拉列表的方法。 除了自动完成功能之外，您还可以使下拉列表可搜索，以提高在下拉列表中查找适当值时的工作效率。 为了使下拉列表可搜索，请尝试本教程中的方法。

在Excel下拉列表中选择值时自动填充其他单元格 假设您已经基于单元格区域B8：B14中的值创建了一个下拉列表。 在下拉列表中选择任何值时，都希望在选定单元格中自动填充单元格范围C8：C14中的相应值。 为了解决该问题，本教程中的方法将对您有所帮助。

下拉列表的更多教程...

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！