Excel VBA Worksheet_Change事件报运行时错误13类型不匹配怎么解决

• 核心触发原因是当你同时修改多个单元格时，Target 会返回一个多单元格区域集合，此时不管调用Target.Value还是Target.Text都会返回二维数组，无法直接和字符串做等值比较，直接对比就会抛出类型不匹配错误。这也是你之前修改为Target.Text仍然没有解决问题的根本原因。
• 次要诱因是你调用的隐藏列、切换视图的宏如果包含修改单元格内容的操作，会重新触发 Worksheet_Change 事件，嵌套调用过程中可能出现Target对象异常，进一步引发类型不匹配。
• 原有代码逻辑存在冗余：所有非B1单元格的修改都会走到Else分支执行Show_All，即使你没有修改B1也会触发无关逻辑，增大了报错概率。

直接替换为以下修改后的代码即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 先做范围校验，不符合直接退出，避免报错
    If Target.Cells.Count <> 1 Or Target.Address <> "$B$1" Then Exit Sub
    
    ' 禁用事件，防止宏操作二次触发Change事件
    Application.EnableEvents = False
    On Error GoTo ErrHandler ' 错误捕获，保证出错时也能恢复事件
    
    Select Case Target.Value
        Case "Default View": Call Default_View
        Case "Compact View": Call Compact_View
        Case "Search View": Call Search_View
        Case "Sessions Only": Call Sessions_Only
        Case "Session Trends": Call Session_Trends
        Case "Jump to Direct": Range("HN358").Select
        Case Else: Call Show_All
    End Select
    
ErrHandler:
    ' 无论是否报错都恢复事件触发
    Application.EnableEvents = True
    If Err.Number <> 0 Then MsgBox Err.Description
End Sub

优化说明 #

• 开头提前做范围校验，只有修改的是单个B1单元格时才执行后续逻辑，从根源避免多单元格修改导致的数组对比错误
• 改用Select Case替换多层ElseIf，逻辑更清晰，也避免重复判断单元格地址
• 增加事件禁用和错误捕获逻辑，防止宏操作触发嵌套事件，也保证即使运行出错也能恢复Excel的事件触发机制，不会出现后续事件失效的问题

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