Excel VBA：表格新增行时宏运行报错及事件选择求助

首先解决你遇到的「Application defined or object defined」错误——这个问题大概率出在Find方法找不到任何内容时，直接访问.Row导致的。如果Sheets("Projects")工作表是空的（或者所有单元格都为空），Cells.Find("*")会返回Nothing，这时候再调用.Row就会触发这个错误。

修复LastRow的获取逻辑 #

把你原来的代码改成下面这样，先判断Find的结果是否存在：

Dim lastCell As Range
Set lastCell = Sheets("Projects").Cells.Find( _
    What:="*", _
    SearchOrder:=xlByRows, _
    SearchDirection:=xlPrevious _
)

If Not lastCell Is Nothing Then
    LastRow = lastCell.Row
Else
    LastRow = 1 ' 如果工作表完全为空，默认第一行
End If

这样即使工作表是空的，也不会报错，而是给LastRow一个合理的默认值。

另外，在Worksheet_Change事件里，记得要禁用事件触发防止递归，还要加错误处理，比如：

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    On Error GoTo Cleanup ' 确保出错时恢复事件状态
    
    ' 判断修改是否发生在Records表格范围内
    Dim tbl As ListObject
    Set tbl = Me.ListObjects("Records")
    If Not Intersect(Target, tbl.DataBodyRange) Is Nothing Then
        FindRow ' 调用你的宏
    End If

Cleanup:
    Application.EnableEvents = True
    If Err.Number <> 0 Then
        MsgBox "运行错误: " & Err.Description, vbCritical
    End If
End Sub

要不要改用Worksheet_TableUpdate？ #

答案是非常推荐，因为你的需求是「仅当Records表格新增行时运行宏」，而Worksheet_Change的触发范围太广——它会响应工作表上任何单元格的修改（包括表格外的单元格、表格内的编辑/删除操作），你需要额外写很多判断逻辑来过滤无效触发。

Worksheet_TableUpdate是专门针对Excel表格（ListObject）的事件，只有当表格的数据发生更新时才会触发，更贴合你的场景。不过要实现「仅新增行时触发」，还需要加一点额外的判断：

示例代码：仅在Records表格新增行时运行宏

' 模块级变量，用来记录表格上次的行数
Private lastRecordRowCount As Long

' 工作表激活时初始化行数
Private Sub Worksheet_Activate()
    Dim tbl As ListObject
    Set tbl = Me.ListObjects("Records")
    lastRecordRowCount = tbl.ListRows.Count
End Sub

Private Sub Worksheet_TableUpdate(ByVal Target As ListObject)
    ' 确保触发事件的是Records表格
    If Target.Name <> "Records" Then Exit Sub
    
    Dim currentRowCount As Long
    currentRowCount = Target.ListRows.Count
    
    ' 对比当前行数和上次记录的行数，判断是否新增了行
    If currentRowCount > lastRecordRowCount Then
        FindRow ' 调用你的宏
        ' 更新记录的行数，避免重复触发
        lastRecordRowCount = currentRowCount
    End If
End Sub

这种方式比Worksheet_Change更精准，也能避免很多不必要的触发。

总结 #

1. 先修复Find方法的错误，添加空值判断；
2. 优先使用Worksheet_TableUpdate事件，它更适合表格专属的操作监听，能减少很多冗余判断。

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