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

Bug哆哆

已于 2022-06-17 11:42:58 修改

阅读量7k

点赞数 11

分类专栏： office

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

本文链接： https://blog.csdn.net/baikunlong/article/details/125330386

版权

Excel VBA 下拉框多选数据验证

关键词由CSDN通过智能技术生成

office 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

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

再看文件时已经可以多选了：

自定义分隔符号：

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