Excel VBA插入行后代码终止运行问题求助

你代码里的核心错误在于重复且错误的行插入操作：

• tbl.ListRows.Add()本身就是专门用于向Excel表格（ListObject）中插入行的方法，它会自动维护表格的结构。
• 你在调用ListRows.Add之后又链式调用.Range.Offset(1).Insert，这相当于在表格外额外插入一行，打乱了表格的正常结构，导致VBA执行上下文异常，直接中断了后续代码的运行。

步骤1：修正行索引逻辑 #

你之前用cell.Row获取的是工作表的绝对行号，但ListRows.Add需要的是表格数据区域内的相对行索引（从1开始）。需要把工作表行号转换为表格内的行索引。

步骤2：简化插入操作 #

直接用ListRows.Add在目标行的下一行插入新行，然后复制上方行的内容，无需额外调用Insert方法。

步骤3：（可选）禁用事件防止干扰 #

如果你的工作表有Worksheet_Change这类事件宏，插入行可能会触发事件导致代码中断，可以临时禁用事件。

Sub InsertNewRowAfterSearchPO()
    Dim ws As Worksheet
    Dim tbl As ListObject
    Dim rng As Range
    Dim searchValue As String
    Dim lastMatchRowIndex As Long ' 存储表格内的相对行索引
    Dim cell As Range
    Dim newRow As ListRow
    
    ' 临时禁用事件，防止触发工作表事件中断代码
    Application.EnableEvents = False
    
    ' 设置工作表和表格对象
    Set ws = ThisWorkbook.Worksheets("POData")
    Set tbl = ws.ListObjects("POTable")
    
    ' 获取用户输入的搜索值
    searchValue = InputBox("Enter the value to search for:")
    
    ' 查找最后一个匹配的行（表格内的相对索引）
    Set rng = tbl.DataBodyRange.Columns(2) ' PO Number列
    lastMatchRowIndex = 0
    For Each cell In rng.Cells
        If cell.Value = searchValue Then
            ' 计算当前单元格在表格数据区域内的行索引
            lastMatchRowIndex = cell.Row - tbl.DataBodyRange.Row + 1
        End If
    Next cell
    
    If lastMatchRowIndex = 0 Then
        MsgBox "No matching value found."
    Else
        MsgBox "The last matching row in the table is index " & lastMatchRowIndex & "."
        
        ' 在匹配行的下一行插入新行
        Set newRow = tbl.ListRows.Add(lastMatchRowIndex + 1)
        
        ' 复制上方匹配行的内容到新行
        tbl.DataBodyRange.Rows(lastMatchRowIndex).Copy
        newRow.Range.PasteSpecial xlPasteAll
        
        ' 清除剪贴板
        Application.CutCopyMode = False
        
        MsgBox "New row inserted beneath the last row with PO Number '" & searchValue & "'."
    End If
    
    ' 恢复事件启用
    Application.EnableEvents = True
End Sub

1. 检查工作表是否有Worksheet_Change或Worksheet_SelectionChange事件宏，如果有，确认这些宏是否有错误或会中断主流程。
2. 确保表格POTable的结构正常，没有合并单元格或损坏的情况。

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