多单元格选中时Worksheet_Change事件无法清除CD列内容的问题

问题原因 #

原代码未处理Target为多单元格区域的场景：当选中多个A列单元格删除时，IsEmpty(Target)无法正确判断区域内所有单元格的空值状态，且直接对Target整体操作Offset区域时，逻辑未覆盖单个单元格的清空判断，导致CD列对应内容未被清除。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当A列第14行及以下单元格被填充时，对应CD列自动填入"No"；清空时同步清空CD列
    Dim cell As Range
    ' 关闭事件触发，避免修改CD列时递归触发本事件
    Application.EnableEvents = False
    
    On Error GoTo ResetEvents ' 出错时恢复事件状态
    
    For Each cell In Target
        ' 只处理第14行及以下的A列单元格
        If cell.Row >= 14 And cell.Column = 1 Then
            If Not IsEmpty(cell) Then
                cell.Offset(0, 81).Value = "No" ' CD列是A列偏移81列
            Else
                cell.Offset(0, 81).ClearContents
            End If
        End If
    Next cell

ResetEvents:
    Application.EnableEvents = True ' 恢复事件触发
End Sub

关键修改说明 #

• 增加For Each cell In Target循环，遍历每个被修改的单元格，确保批量操作时每个单元格都被处理
• 加入Application.EnableEvents的开关，防止修改CD列内容时再次触发Worksheet_Change事件，造成循环调用
• 调整判断逻辑，针对单个单元格进行空值判断，而非整个Target区域
• 简化列判断写法，直接用cell.Column = 1（A列对应第1列），避免冗余写法

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