如何在特定列输入指定值时触发Worksheet_Change过程并实现行数据完整性校验

• IsEmpty函数不支持多单元格区域判断：将多单元格Range传入IsEmpty时，永远返回False，导致「其余单元格未全部填写」的判断逻辑完全失效
• 未禁用事件触发：执行ClearContents修改单元格内容时，会再次触发Worksheet_Change事件，造成递归调用，严重时会导致Excel卡死
• 遍历逻辑冗余：不需要遍历全表所有行，只需要处理用户本次修改的Target单元格对应行即可，效率低还可能误修改其他行的正常内容
• 工作表指代不严谨：使用ActiveSheet指代工作表，当事件触发时如果用户切到其他工作表，会出现逻辑错误，应该用Me直接指代当前代码所属的工作表
• 冗余变量未清理：声明的columnletter、myrange、targetcolumn变量没有实际用到，属于无效代码

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim columnnumber As Integer
    Dim leftColCount As Long
    Dim cell As Range
    
    ' 禁用事件，避免修改单元格时递归触发当前事件
    Application.EnableEvents = False
    
    On Error GoTo ErrHandler ' 出错时强制恢复事件，避免Excel事件永久失效
    
    ' 获取当前表动态最后一列列号
    columnnumber = Me.UsedRange.Columns.Count
    ' 仅处理修改最后一列的操作
    If Intersect(Target, Me.Columns(columnnumber)) Is Nothing Then GoTo ExitHandler
    
    leftColCount = columnnumber - 1 ' 左侧需要校验的总列数
    ' 遍历本次修改的所有单元格，应对批量粘贴的场景
    For Each cell In Intersect(Target, Me.Columns(columnnumber))
        ' 若第一行是表头，可放开下一行注释跳过表头校验
        ' If cell.Row = 1 Then GoTo Continue
        If UCase(cell.Value) = "Y" Then
            ' 统计左侧区域非空单元格数量，和总列数对比判断是否全填
            If WorksheetFunction.CountA(Me.Range(Me.Cells(cell.Row, 1), Me.Cells(cell.Row, leftColCount))) < leftColCount Then
                cell.ClearContents
                MsgBox "Make sure to fill all fields before copying to Master Sheet.", vbExclamation, "提示"
            End If
        End If
Continue:
    Next cell
    
ExitHandler:
    ' 恢复事件触发
    Application.EnableEvents = True
    Exit Sub
ErrHandler:
    MsgBox "运行错误：" & Err.Description, vbCritical
    Resume ExitHandler
End Sub

• 新增了错误捕获机制，无论代码是否运行出错，最终都会恢复事件触发，不会出现Excel事件永久失效的问题
• 只处理用户本次修改的单元格区域，无需遍历全表，运行效率大幅提升
• 用CountA函数统计左侧非空单元格数量，准确判断是否所有单元格都已填写
• 兼容大小写输入，即使用户输入小写的"y"也能正常触发校验
• 剔除了所有无效冗余变量，代码逻辑更清晰

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