VBA Worksheet_Change删除目标区域行时触发调试错误排查

• 执行右键删除整行操作时，触发Worksheet_Change事件传入的Target参数是整行对应的多单元格区域，而非单个单元格。此时直接读取Target.Value会返回二维数组，无法直接与空字符串""做比较，直接触发类型不匹配的运行时错误，代码中断在If Target.Value <> "" Then行。
• 原有代码未兼容多单元格批量修改的场景，也未做事件递归防护，除删行操作外，批量选中C列多个单元格修改/清空内容时，同样会触发同类错误。

修正逻辑如下：

• 代码执行前先关闭事件响应，避免代码修改单元格内容时递归触发Change事件造成死循环
• 先提取Target与有效范围C11:C1000的交集区域，遍历交集内的单个单元格逐一处理，从根源上规避多单元格区域读取Value返回数组无法比较的问题
• 增加错误兜底逻辑，无论代码执行是否出错，最终都恢复事件响应，避免Excel事件响应被意外关闭影响其他功能

修正后可正常运行的完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim effectiveRange As Range
    Dim opCell As Range
    
    ' 临时关闭事件触发，防止递归调用
    Application.EnableEvents = False
    On Error GoTo SafeExit
    
    ' 仅处理落在有效范围内的单元格
    Set effectiveRange = Intersect(Target, Me.Range("C11:C1000"))
    If Not effectiveRange Is Nothing Then
        For Each opCell In effectiveRange
            If opCell.Value <> "" Then
                ' 非空时写入VLOOKUP公式
                opCell.Offset(0, -1).Formula = "=VLOOKUP(" & opCell.Address & ",UIDs!$F$3:$H$750,3,FALSE)"
            Else
                ' 为空时同步清空左侧单元格
                opCell.Offset(0, -1).Value = ""
            End If
        Next opCell
    End If

SafeExit:
    ' 恢复事件响应
    Application.EnableEvents = True
End Sub

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