VBA插入行异常求助：预算支出表新增行位置不符

问题描述 #

我为预算支出表创建了插入行按钮，要求新增行显示“Insert An Expense…”，但当前存在以下问题：

• 当B7单元格有“test”内容时，点击按钮仅在B7位置插入行
• 删除B7的“test”使其为空后，点击按钮会在标注“expenses”的B5下方插入行
  需要实现按钮正常新增行用于记录支出。

原VBA代码 #

Sub Button17_Click()
    Range("B" & Rows.Count).End(xlUp).Select
    ActiveCell.EntireRow.Insert
    ActiveCell.FormulaR1C1 = "Insert An Expense…"
End Sub

问题原因 #

原代码通过Range("B" & Rows.Count).End(xlUp)定位B列最后一个非空单元格，插入行在该单元格所在行的上方：

• 当B7有内容时，定位到B7，插入行在B7上方
• 当B7为空时，会定位到B列上一个非空单元格（即B5的"expenses"），插入行在B5上方，不符合需求。

修复方案 #

方案1：基于支出记录起始行定位 #

假设支出记录从B6开始（B5为"expenses"标题），直接找到支出区域的最后一行并在下一行插入：

Sub Button17_Click()
    Dim lastExpenseRow As Long
    ' 查找B列中从第6行开始的最后一个非空单元格行号
    lastExpenseRow = Range("B6:B" & Rows.Count).Find(What:="*", SearchDirection:=xlPrevious).Row
    ' 在最后一条支出记录的下一行插入新行
    Rows(lastExpenseRow + 1).Insert
    ' 设置新行B列内容
    Cells(lastExpenseRow + 1, "B").Value = "Insert An Expense…"
End Sub

方案2：基于标题行动态定位 #

先找到"expenses"标题行，再定位其下方的最后支出记录行，适配中间有空行的场景：

Sub Button17_Click()
    Dim headerRow As Long
    ' 在B列精准查找"expenses"标题所在行
    headerRow = Range("B:B").Find(What:="expenses", LookIn:=xlValues, LookAt:=xlWhole).Row
    
    Dim lastRow As Long
    ' 查找标题行下一行开始的最后非空行
    lastRow = Range("B" & headerRow + 1 & ":B" & Rows.Count).End(xlUp).Row
    
    ' 处理还没有任何支出记录的情况（标题行下一行为空）
    If lastRow < headerRow + 1 Then lastRow = headerRow
    
    ' 插入新行并设置提示文本
    Rows(lastRow + 1).Insert
    Cells(lastRow + 1, "B").Value = "Insert An Expense…"
End Sub

说明 #

• 方案1适合支出记录区域无空行的场景，代码更简洁
• 方案2更灵活，即使支出记录中间有空行，也能准确在最后一条记录下方插入新行，同时兼容无支出记录的初始状态

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