多单元格选择时VBA Intersect与Target触发类型不匹配错误求助

问题原因 #

原代码中ElseIf Target = ""的写法仅适用于单个单元格场景，当进行批量操作（多选单元格删除、拖动填充）时，Target是包含多个单元格的Range对象，直接将其与空字符串比较会触发类型不匹配错误。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim editRange As Range
    Dim cell As Range
    
    ' 获取Editable区域与操作目标的交集
    Set editRange = Intersect(Target, Range("Editable"))
    
    ' 无交集则直接退出
    If editRange Is Nothing Then Exit Sub
    
    ' 关闭事件触发，避免修改单元格时重复触发Change事件
    Application.EnableEvents = False
    
    ' 遍历交集中的每个单元格，逐个判断处理
    For Each cell In editRange
        If cell.Value = "" Then
            cell.Value = "$0"
        End If
    Next cell
    
    ' 恢复事件触发
    Application.EnableEvents = True
    
    Calculate
End Sub

关键说明 #

• 用Intersect锁定需要处理的单元格范围，避免对无关区域做无效判断
• 通过For Each遍历单元格，适配多单元格批量操作的场景
• 加入事件开关，防止修改单元格时重复触发Worksheet_Change，避免死循环或重复执行

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