VBA代码报错Error 424: Object required，请求协助排查

嘿，我一眼就揪出问题所在了——你标红的那行代码里藏着个典型的VBA小坑！

错误原因拆解 #

Intersect函数的作用是判断两个Range对象是否有交集，但你写的tbl.DataBodyRange.Select是一个「执行选中操作」的语句，它返回的不是Range对象（而是一个无意义的Variant值），这就导致VBA找不到它需要的对象，直接抛出了Error 424。

你只需要把.Select删掉，直接用tbl.DataBodyRange作为Range参数传给Intersect就行。

另外，我还帮你补了几个避免后续踩坑的细节：

• 先判断tbl.DataBodyRange是否存在（比如表格为空时，这个属性会是Nothing），防止触发新的错误
• 把代码里的Selection换成参数自带的Target，逻辑更严谨，不会受意外选择操作的影响
• 提醒你确认StopCode和ResetCode是已经定义好的自定义过程，不然运行时会又出问题

修正后的完整代码 #

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim tbl As ListObject
    Set tbl = ActiveSheet.ListObjects("Table1")
    
    ' 先检查表格是否有数据行，避免DataBodyRange为空的情况
    If Not tbl.DataBodyRange Is Nothing Then
        ' 移除错误的.Select，直接传入Range对象
        If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then
            Dim Cell As Range
            Range("A4").NumberFormat = "@"
            
            If Target.Count > 1 And Target.Count < 50 Then
                StopCode ' 确保这个自定义过程已提前定义
                For Each Cell In Target ' 用Target替代Selection更可靠
                    Range("A4").Value = Range("A4").Value & "(" & Cell.Row - 21 & ")"
                Next Cell
                ResetCode ' 确保这个自定义过程已提前定义
            Else
                Range("A4").Value = "(" & Target.Row - 21 & ")"
            End If
        Else
            Range("A4").ClearContents
        End If
    Else
        ' 表格为空时，自动清空A4内容
        Range("A4").ClearContents
    End If
End Sub

额外优化建议 #

• 如果你想让Cell.Row - 21的计算更灵活（比如表格位置变动时也能正确获取行号），可以改成Cell.Row - tbl.HeaderRowRange.Row，这样就不用硬编码数字21了
• 确认你的表格名称确实是Table1，可以在Excel的「表格设计」选项卡中查看或修改表名
• 这段代码必须放在对应的工作表模块里（不是标准模块），右键工作表标签→「查看代码」，再粘贴进去才会生效

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