Worksheet_Change事件中双Intersect选择失效问题求助

原代码的核心问题是Intersect的判断逻辑错误：Intersect返回的是Range对象，不能直接放在If条件里做布尔判断，必须明确检查它是否不为空（即Not Intersect(...) Is Nothing）。

另外你提到加了这个判断还是无效，可能还有这些原因：

• 宏被禁用或者工作表事件未启用：检查是否手动关闭了事件（比如之前运行过Application.EnableEvents = False但没恢复）
• 修改的单元格不在指定范围（A3:A100或B3:B100）内

修正后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 处理单个单元格修改的情况，批量修改直接退出
    If Target.Cells.Count > 1 Then Exit Sub
    
    ' 检查是否在A列指定范围
    If Not Intersect(Target, Me.Range("A3:A100")) Is Nothing Then
        MsgBox "column A" & Target.Value
    End If
    
    ' 检查是否在B列指定范围
    If Not Intersect(Target, Me.Range("B3:B100")) Is Nothing Then
        MsgBox "column B" & Target.Value
    End If
End Sub

额外注意点：

• 使用Me.Range代替直接写Range，明确指定当前工作表，避免引用错误
• 如果需要处理批量修改的情况，可以去掉If Target.Cells.Count > 1 Then Exit Sub，然后循环遍历Target中的每个单元格进行判断

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