如何修改Excel VBA实现数据验证下拉多选内容换行显示

原代码前置问题 #

你提供的代码存在语法错误：判断目标单元格地址的逻辑行缺少开头的If关键字，直接运行会触发编译错误，需要先补全。

核心修改逻辑 #

要实现新选中选项显示在单元格下一行，按以下要点调整即可：

• 将原来拼接新旧值的分隔符从", "（逗号+空格）替换为VBA内置的单元格软换行常量vbLf
• 提前为C14、D14、E14单元格开启「自动换行」格式，否则换行符不会生效，内容仍会单行显示
• （可选优化）增加重复值判断，避免同一个选项被多次选中时重复追加到单元格内容中

修改后可直接运行的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Oldvalue As String
    Dim Newvalue As String
    
    On Error GoTo Exitsub
    ' 补全原代码缺失的If关键字
    If Target.Address = "$C$14" Or Target.Address = "$D$14" Or Target.Address = "$E$14" Then
        If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then
            GoTo Exitsub
        Else
            If Target.Value = "" Then GoTo Exitsub
            Application.EnableEvents = False
            Newvalue = Target.Value
            Application.Undo
            Oldvalue = Target.Value
            If Oldvalue = "" Then
                Target.Value = Newvalue
            Else
                ' 不需要重复值判断可直接删掉下方判断分支，保留换行拼接逻辑即可
                If InStr(1, Oldvalue, Newvalue) = 0 Then
                    ' 原逗号拼接改为换行符拼接
                    Target.Value = Oldvalue & vbLf & Newvalue
                Else
                    ' 选中已存在的选项时保留原有内容
                    Target.Value = Oldvalue
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
Exitsub:
    Application.EnableEvents = True
End Sub

后续操作说明 #

代码粘贴完成后，回到工作表界面选中C14、D14、E14三个单元格，点击「开始」选项卡中的「自动换行」按钮，即可实现每选中一个新选项，内容自动追加到单元格下一行的效果。

内容的提问来源于stack exchange，提问作者Vinz B