Excel VBA删除行触发Worksheet_Change事件时出现Type Mismatch（类型不匹配）错误的原因排查

阿华AIGC实验室

2026-4-1

嘿，这个问题我之前踩过一模一样的坑，核心原因其实是你对Target参数的预期和实际情况不一样！

当你删除整行时，Worksheet_Change事件里的Target指向的是被删除的整行单元格区域（比如Rows(5:5)这样的范围），而不是单个单元格。这时候Target.Value不再是单个Variant值，而是一个二维Variant数组（对应整行所有单元格的内容）。你直接把这个数组和字符串"Yes"用=比较，VBA根本没法处理这种跨类型的对比，自然就抛出"Type Mismatch"错误了。

你之前用CVar("Yes")的尝试之所以没用，是因为CVar只是把字符串转成了单个Variant值，但本质还是单个值，和数组比较依然不兼容，错误肯定会持续出现。

验证问题的小技巧

你可以在事件开头加两句调试代码，删除行时就能直观看到差异：

Private Sub Worksheet_Change(ByVal Target As Range)
    Debug.Print "Target包含的单元格数量：" & Target.Cells.CountLarge
    Debug.Print "Target.Value是数组吗？" & IsArray(Target.Value)
    ' 后面的原有代码
End Sub

删除行时，Target.Cells.CountLarge会等于整行的单元格数（比如16384），IsArray(Target.Value)会输出True；而单个单元格修改时，这两个值分别是1和False。

解决办法

你需要在原有判断之前，先过滤掉多单元格的操作场景，比如：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先禁用事件防止递归，这是Worksheet_Change的常规操作
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 出错时务必恢复事件状态
    
    ' 过滤掉多单元格的操作（比如整行删除、整列修改）
    If Target.Cells.CountLarge > 1 Then
        GoTo Cleanup
    End If
    
    ' 现在再执行你的核心判断逻辑
    If Target.Column = gblScheduled Then
        ' 额外判断值不为空且是字符串类型，避免空单元格或数值单元格的异常
        If Not IsEmpty(Target.Value) And TypeName(Target.Value) = "String" Then
            If Target.Value = "Yes" Then
                ' 这里放你的业务代码
                MsgBox "符合条件的单元格被修改啦！"
            End If
        End If
    End If

Cleanup:
    Application.EnableEvents = True ' 必须恢复事件触发，否则后续修改不会触发事件
End Sub