Excel实现单元格下拉框选择，加VBA脚本可实现选择多个选项，默认顿号分隔，可自定义符号分隔

原创已于 2022-06-17 11:42:58 修改 · 8k 阅读

26 ·

本内容遵循CC 4.0 BY-SA版权协议

标签

#excel

于 2022-06-17 11:42:19 首次发布

office 专栏收录该内容

2 篇文章

订阅专栏

本文介绍了如何使用Excel VBA来创建单元格下拉列表，并实现多选功能。通过编辑VBA代码，当用户在指定单元格中输入内容时，能够以逗号分隔的方式进行多选。只需在VBA编辑器中插入代码并保存为.xlsm文件，即可实现这一功能。此外，文章还提到了如何自定义分隔符以及提供了相关参考链接。

1 实现单元格下拉框

在这里插入图片描述
来源需要用英文逗号分隔，这里输入限制为最大255字符，如果需要更多可选择单元格范围：

到这里就实现了下拉选择：

2 导入VBA脚本实现多选

按Alt+F11唤出VBA代码编辑器，选中你的sheet，复制代码然后保存，保存时选否，保存为.xlsm文件
在这里插入图片描述

代码如下：

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 xStrNew <> "" Then
        If InStr(1, xStrOld, xStrNew) = 0 Then
            xStrNew = xStrNew & IIf(xStrOld <> "", "、" & xStrOld, "")
        Else
            xStrNew = xStrOld
        End If
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

再看文件时已经可以多选了：
在这里插入图片描述
自定义分隔符号：

更改这个顿号为你想要的后保存脚本即可。