为何VBA宏未插入新行反而删除了表格数据？

核心问题 #

你的代码触发了反向单元格范围赋值，直接覆盖了原有全部数据：
当exlstrow = 16时，exlstrow - 15 = 1，此时你写的ExpensesDB.Range("A" & exDBrow & ":E" & exlstrow -15)会被Excel自动解析为A1:E894（Excel会自动将行号大的起始范围调整为小行号在前），随后用Expenses.Range("B16:F16")这个单个单元格的数据覆盖整个A1:E894区域，导致原有893行数据全部丢失。

修正后的代码 #

Sub Save_Expense()
    Dim exDBrow As Long
    Dim exlstrow As Long
    Dim sourceRange As Range
    Dim targetRange As Range

    ' 获取ExpensesDB的下一个空行（A列最后一行+1）
    exDBrow = ExpensesDB.Cells(ExpensesDB.Rows.Count, "A").End(xlUp).Row + 1
    ' 获取Expenses中B列从B16开始的最后一行（避免单行数据时End(xlDown)出错）
    exlstrow = Expenses.Cells(Expenses.Rows.Count, "B").End(xlUp).Row
    
    With Expenses
        ' 检查是否存在有效数据
        If exlstrow < 16 Or .Range("B16").Value = "" Then
            MsgBox "请先添加费用记录再保存"
            Exit Sub
        Else
            ' 定义源数据范围：B16到F列对应行
            Set sourceRange = .Range("B16:F" & exlstrow)
            ' 定义目标范围：匹配源数据的行数和列数
            Set targetRange = ExpensesDB.Range("A" & exDBrow).Resize(sourceRange.Rows.Count, sourceRange.Columns.Count)
            ' 赋值操作
            targetRange.Value = sourceRange.Value
        End If
    End With
End Sub

关键改进点 #

• 用Resize方法精准匹配源数据的行数和列数，彻底规避反向范围的风险
• 调整exlstrow的获取逻辑，从B列末尾向上查找，避免B15.End(xlDown)在仅一行数据时误跳至无效行
• 增加exlstrow <16的判断，提前拦截无数据的情况

额外优化建议 #

如果ExpensesDB是Excel结构化表格（ListObject），可以用更安全的方式添加数据，Excel会自动管理行，不会覆盖原有内容：

Sub Save_Expense_Table()
    Dim tbl As ListObject
    Dim sourceRange As Range
    Dim exlstrow As Long
    
    Set tbl = ExpensesDB.ListObjects("ExpensesDBTable") ' 替换为你的表格实际名称
    exlstrow = Expenses.Cells(Expenses.Rows.Count, "B").End(xlUp).Row
    
    With Expenses
        If exlstrow <16 Or .Range("B16").Value = "" Then
            MsgBox "请先添加费用记录再保存"
            Exit Sub
        Else
            Set sourceRange = .Range("B16:F" & exlstrow)
            ' 将数据添加到表格末尾
            tbl.ListRows.Add AlwaysInsert:=True
            tbl.ListRows(tbl.ListRows.Count).Range.Value = sourceRange.Value
        End If
    End With
End Sub

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