Excel VBA问题：将表单数据插入指定工作表表格总计行前

原代码的问题在于，通过Range("A" & Application.Rows.Count).End(xlUp).Row + 1定位行号时，会把总计行识别为工作表的最后非空行，导致新数据被插入到总计行下方的表格外部。以下是两种可靠的修正方案：

方案1：利用Excel表格（ListObject）内置方法（推荐） #

如果目标工作表中的数据是Excel官方结构化表格，直接通过ListObject操作可以自动识别总计行位置，插入新行到数据区域末尾、总计行之前：

Dim shCountry As Worksheet
Dim shForm As Worksheet
Dim tbl As ListObject
Dim newRow As ListRow
Dim sCountryName As String

Set shForm = ThisWorkbook.Sheets("Profit")
sCountryName = shForm.Range("D3").Value
Set shCountry = ThisWorkbook.Sheets(sCountryName)

' 获取目标工作表的第一个表格（若有多个表格，可改为表格名称，如ListObjects("SalesTable")）
Set tbl = shCountry.ListObjects(1)

' 在总计行前插入新行（表格启用总计行时，Add方法默认插入到数据区域末尾）
Set newRow = tbl.ListRows.Add

' 为新行赋值
With newRow
    .Range(1) = shForm.Range("D5").Value
    .Range(2) = shForm.Range("D7").Value
    .Range(3) = shForm.Range("D9").Value
    .Range(4) = shForm.Range("D11").Value
    .Range(5) = shForm.Range("D13").Value
    .Range(6) = shForm.Range("D15").Value
    .Range(7) = shForm.Range("D17").Value
    .Range(8) = shForm.Range("D19").Value
    .Range(9) = shForm.Range("D21").Value
    .Range(10) = shForm.Range("D23").Value
    .Range(11) = shForm.Range("D25").Value
End With

' 清空录入表单
shForm.Range("D5,D7,D9,D11,D13,D15,D17,D19,D21,D23,D25").Value = ""

MsgBox "Data submitted successfully!"

方案2：手动定位总计行（适用于非结构化表格） #

如果目标数据是手动排版的普通单元格区域，可通过定位总计行的关键词（如A列的“总计”文本）来确定插入位置：

Dim shCountry As Worksheet
Dim shForm As Worksheet
Dim iInsertRow As Integer
Dim sCountryName As String
Dim totalRow As Range

Set shForm = ThisWorkbook.Sheets("Profit")
sCountryName = shForm.Range("D3").Value
Set shCountry = ThisWorkbook.Sheets(sCountryName)

' 在A列查找“总计”行（可根据实际修改查找范围和关键词）
Set totalRow = shCountry.Range("A:A").Find(What:="总计", LookIn:=xlValues, LookAt:=xlWhole)
If Not totalRow Is Nothing Then
    iInsertRow = totalRow.Row - 1
    ' 插入新行
    shCountry.Rows(iInsertRow).Insert Shift:=xlDown
    ' 为新行赋值
    With shCountry
        .Cells(iInsertRow, 1) = shForm.Range("D5").Value
        .Cells(iInsertRow, 2) = shForm.Range("D7").Value
        .Cells(iInsertRow, 3) = shForm.Range("D9").Value
        .Cells(iInsertRow, 4) = shForm.Range("D11").Value
        .Cells(iInsertRow, 5) = shForm.Range("D13").Value
        .Cells(iInsertRow, 6) = shForm.Range("D15").Value
        .Cells(iInsertRow, 7) = shForm.Range("D17").Value
        .Cells(iInsertRow, 8) = shForm.Range("D19").Value
        .Cells(iInsertRow, 9) = shForm.Range("D21").Value
        .Cells(iInsertRow, 10) = shForm.Range("D23").Value
        .Cells(iInsertRow, 11) = shForm.Range("D25").Value
    End With
    
    ' 清空录入表单
    shForm.Range("D5,D7,D9,D11,D13,D15,D17,D19,D21,D23,D25").Value = ""
    MsgBox "Data submitted successfully!"
Else
    MsgBox "未找到总计行，请检查目标工作表结构！"
End If

说明 #

• 方案1更稳定，尤其适合表格有筛选、排序或结构变化的场景，Excel会自动维护表格结构
• 方案2需确保总计行有固定的识别关键词，否则会出现查找失败的情况

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