如何在活动单元格不符合指定条件时清除右侧两个单元格内容？

原代码存在偏移定位错误和未处理事件循环的问题，以下是修正后的代码，可完整实现需求：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Set KeyCells = ActiveSheet.ListObjects("VW_P1_P2").ListColumns("C1 Made Contact?").Range
    
    ' 仅处理单个单元格变更，避免批量修改时逻辑混乱
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        ' 禁用事件触发，防止修改单元格时重复触发Change事件导致循环
        Application.EnableEvents = False
        
        If Target.Value = "Yes" Or Target.Value = "No" Then
            ' 向当前单元格右侧1列写入日期，右侧2列写入时间
            Target.Offset(0, 1).Value = Format(Now, "mm/dd/yyyy")
            Target.Offset(0, 2).Value = Format(Now, "hh:mm")
        Else
            ' 一次性清除右侧两个单元格的内容
            Target.Offset(0, 1).Resize(1, 2).ClearContents
        End If
        
        ' 恢复事件触发状态
        Application.EnableEvents = True
    End If
End Sub

关键修改说明： #

• 替换ActiveCell.Offset(-1, ...)为Target.Offset(0, ...)：Target是实际被修改的单元格，直接对其偏移才能准确定位到当前行的右侧单元格，原代码的-1会错误定位到上一行。
• 增加批量修改判断：避免同时修改多个单元格时出现逻辑错误。
• 添加事件状态控制：修改单元格会再次触发Worksheet_Change事件，禁用事件可防止无限循环，操作完成后必须恢复事件状态。
• 简化清除操作：用Resize(1, 2)一次性选中右侧两个单元格，批量清除内容。

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