Excel VBA数据验证多选逗号拼接排除单元格初始0值咨询

在工作表第9列（I列）、第11列（K列）配置Worksheet_Change事件，实现数据验证多选内容自动拼接为逗号分隔字符串。因业务要求单元格为空时需显示单元格标题，所有相关单元格初始值固定为0（该规则不可修改），但当前代码运行时，单元格初始值0会作为第一个元素被拼接到生成的字符串中，需要调整代码修复该问题，支持事件触发初期清除初始0、或字符串拼接环节排除0值两种实现思路。
原有实现存在三个核心问题：

• 每次触发Change事件都会全范围执行空值替换为0的操作，未临时关闭事件，极易触发递归调用导致代码卡顿甚至栈溢出
• 空值替换逻辑使用xlPart匹配规则，会错误修改非空单元格的已有内容
• 拼接逻辑未对初始值0做特殊判断，第一次选择数据验证选项时会将0作为旧值参与拼接

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rg As Range
    Dim Oldvalue As String
    Dim Newvalue As String
    
    ' 仅处理单个单元格的修改，避免多选单元格时报错
    If Target.CountLarge > 1 Then GoTo Exitsub
    
    ' 先执行空值补0逻辑，临时关闭事件避免递归触发
    Application.EnableEvents = False
    Set rg = Range("A1:K400")
    On Error Resume Next
    rg.SpecialCells(xlCellTypeBlanks).Value = 0
    On Error GoTo Exitsub
    Application.EnableEvents = True
    
    ' 仅处理I列(9)、K列(11)的修改
    If Target.Column <> 9 And Target.Column <> 11 Then GoTo Exitsub
    ' 跳过无数据验证的单元格
    If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub
    ' 跳过空值修改
    If Target.Value = "" Then GoTo Exitsub
    
    Application.EnableEvents = False
    Newvalue = Target.Value
    Application.Undo
    Oldvalue = Target.Value
    
    ' 旧值为空或是初始0时，直接写入新值，不拼接
    If Oldvalue = "" Or Oldvalue = "0" Then
        Target.Value = Newvalue
    Else
        ' 新值不存在于旧值中时才拼接，避免重复
        If InStr(1, Oldvalue, Newvalue) = 0 Then
            Target.Value = Oldvalue & ", " & Newvalue
        Else
            Target.Value = Oldvalue
        End If
    End If

Exitsub:
    ' 无论是否出错都恢复事件触发
    Application.EnableEvents = True
End Sub

• 优化空值补0逻辑：不再对全区域做模糊替换，仅定位区域内真正的空单元格写入0，且执行时临时关闭事件，避免递归触发Change事件导致的性能问题，同时不会破坏单元格已有的拼接内容
• 增加初始值0的过滤规则：当单元格原有值为初始设置的0时，视为空值处理，直接写入用户新选择的内容，不会把0拼接到最终结果中
• 增加多单元格修改的判断：当用户同时选中多个单元格修改时直接退出过程，避免代码报错
• 修正原代码的错误跳转逻辑，保证所有异常场景下都能正常恢复Excel的事件触发状态，不会出现后续单元格修改无响应的问题
• 完全保留原有业务规则：所有单元格空值时自动补0的设置不变，多选内容自动拼接、重复选项不重复添加的原有功能不变

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