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

Bug哆哆

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

阅读量6.2k

点赞数 2

分类专栏： office 文章标签： excel

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

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

版权

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

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

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