VBA中Application.Intersect判断失效求助：Target对象异常排查

这种“Range属性正常但Intersect返回Nothing”的情况，我之前碰到过类似的——本质是你拿到的Target是一个不完整/损坏的Range引用：它能暴露基础属性（Row、Column、Address），但无法正常参与需要完整Range对象的操作（比如Intersect）。咱们一步步拆解问题并修复：

核心原因 #

虽然Target被声明为Range类型，但如果这个对象的内部引用已经失效（比如参数传递时的异常、对象被部分释放），就会出现这种“半可用”状态：基础属性还能读取，但涉及Range对象核心功能的操作（比如交集计算）会直接失败。

修复方案 #

方案1：通过工作表重新构建有效Range #

既然Target.Row和Target.Column是正确的，直接用工作表的Cells方法重新创建一个完整的Range对象，替换原来的损坏引用：

Sub OnSelectionChange(ByVal target As Range, wksChange As Worksheet)
    On Error GoTo ErrorHandler
    Dim rngIntersect As Range, rngTarget As Range
    Set rngIntersect = wksChange.Range("RNGINTERSECT")
    
    ' 关键：用工作表重新生成有效的Range引用
    Set rngTarget = wksChange.Cells(target.Row, target.Column)
    
    If Not Application.Intersect(rngTarget, rngIntersect) Is Nothing Then
        Call WorksheetSelectionChange(target.Column, wksChange)
    Else
        Call MAIN.ZoomAdjust(wksChange, False)
    End If
ErrorExit:
    Exit Sub
ErrorHandler:
    Call LogError(Err.Number, Err.Description, C_MODULE, "OnSelectionChange")
    Resume ErrorExit
End Sub

方案2：通过Target.Address重建Range #

如果Target.Address也正确，也可以用地址直接获取Range，效果和方案1一致：

Set rngTarget = wksChange.Range(target.Address)

方案3：检查参数传递逻辑 #

确保调用OnSelectionChange时，传递的是完整的Range对象，而不是间接传递的属性值。比如从工作表事件调用时，要直接传原生的Target：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 直接传递原生Range对象，不要转换为其他类型再传
    Call OnSelectionChange(Target, Me)
End Sub

如果调用时传递的是Target.Value、Target.Address这类非Range值，即使过程参数声明为Range，也会导致引用异常。

为什么原代码会失败？ #

当Range对象的内部引用损坏时，它无法响应Intersect这类需要完整对象上下文的方法——虽然它还能返回存储的Row/Column/Address属性，但已经不是一个能正常工作的Range对象了。通过工作表重新构建Range，相当于创建了一个全新的、引用正常的对象，自然就能解决这个问题。

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