VBA Worksheet_SelectionChange过程运行时报对象变量未设置错误

错误核心原因 #

• Intersect方法本身的返回规则：当传入的两个范围无交集时，方法不会返回空内容的Range对象，而是直接返回Nothing。新增J列的TestRow范围判断后，只要选中区域不在J2:J10000范围内，TestRow变量就会被赋值为Nothing，后续直接用ActiveCell = TestRow做等值判断时，VBA无法对Nothing对象做属性读取（等号对比Range对象时默认读取对象的Value属性），就会抛出"Object variable or with block variable not set"错误。
• 原有判断逻辑存在本质错误：你要实现的是「选中区域与指定列范围是否相交」的判断，但直接用等号对比两个Range对象，实际对比的是两个范围的默认属性（即单元格值），根本不是范围相交的判断逻辑。之前单配置CommentRow时能运行只是巧合，只要选中区域不在G列范围，同样会触发相同错误。
• 范围引用未做明确限定：代码中Range("J2:J10000")没有指定所属工作表，跨表操作时容易出现引用偏差。

修正后代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim CommentRow As Range
    Dim TestRow As Range

    ' 明确引用当前工作表的范围，避免跨表引用错误
    Set TestRow = Intersect(Target, Me.Range("J2:J10000"))
    Set CommentRow = Intersect(Target, Me.Range("G2:G10000"))

    ' 如需保留原空单元格跳转逻辑，可放开下方注释
    ' If Target.Cells(1).Value = "" Then GoTo Cancel

    ' 必须先判断对象是否为Nothing，再进入对应分支
    If Not TestRow Is Nothing Then
        GoTo TestRowComment
    ElseIf Not CommentRow Is Nothing Then
        GoTo CommentRowComment
    Else
        ' 选中其他区域直接退出，无操作
        Exit Sub
    End If

TestRowComment:
    ' 此处填写J列范围选中后要执行的代码
    Exit Sub

CommentRowComment:
    ' 此处填写G列范围选中后要执行的代码
    Exit Sub

Cancel:
    ' 此处填写原Cancel分支对应代码
End Sub

编码注意事项 #

• 所有通过Intersect、Find等可能返回Nothing的方法赋值的对象变量，在调用属性、做值对比前，必须先通过Not 变量名 Is Nothing做非空校验。
• 事件触发时直接使用参数传入的Target对象代表当前选中区域，不要依赖ActiveCell做范围判断，避免多单元格选中时判断结果和预期不符。
• 工作表事件过程中引用本表范围时，加Me.前缀做明确限定，减少不必要的引用错误。

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