如何从下拉列表中选择多个项目到Excel中的单元格中？

Private Sub Worksheet_Change(ByVal Target As Range) UpdatebyExtendoffice20221111 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 If Target.Value = "" 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

Private Sub Worksheet_Change(ByVal Target As Range) UpdatebyExtendoffice20221111 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 If Target.Value = "" 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

Tips:: 在应用此工具之前，请先安装 Kutools for Excel 首先。 立即前往免费下载.

备注: 要使用多选下拉列表功能，您应该安装 Kutools for Excel 首先，请 点击下载并立即免费试用 30 天.

最佳办公生产力工具

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