query生成动态表格时如何在total-row上方自动插入足够行

以下两种方案均不需要将总计行追加到Query结果中，可避免冗余问题。

方案1：VBA事件触发（自动插行+触发宏，适配绝大多数场景） #

利用Excel工作表变更事件监听Query行数的变化，自动完成插行和宏触发逻辑：

• 先确认你存储参数的两个单元格地址，假设Query生成行数存在A1，当前总计行行号存在A2，可根据实际情况替换。
• 按Alt + F11打开VBA编辑器，双击Query表格所在的工作表对象，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' --------------请根据你的实际情况修改以下参数--------------
    Const QUERY_ROW_COUNT_CELL As String = "A1" ' 存Query行数的单元格
    Const TOTAL_ROW_NUM_CELL As String = "A2" ' 存总计行行号的单元格
    Const HEADER_ROW_COUNT As Long = 1 ' 你的表格表头占用的行数
    Const TRIGGER_MACRO_NAME As String = "你的宏名称" ' 需要触发的宏名，不需要触发就留空
    ' --------------------------------------------------------
    
    ' 仅修改Query行数单元格时才触发逻辑
    If Intersect(Target, Me.Range(QUERY_ROW_COUNT_CELL)) Is Nothing Then Exit Sub
    
    Dim queryRowCount As Long, totalRowNum As Long
    Dim queryEndRow As Long, needInsertRows As Long
    
    queryRowCount = Me.Range(QUERY_ROW_COUNT_CELL).Value
    totalRowNum = Me.Range(TOTAL_ROW_NUM_CELL).Value
    ' 计算Query数据实际结束的行号
    queryEndRow = HEADER_ROW_COUNT + queryRowCount
    
    ' 计算需要插入的行数
    needInsertRows = queryEndRow - (totalRowNum - 1)
    If needInsertRows > 0 Then
        Application.ScreenUpdating = False
        ' 在总计行上方插入对应数量的空行
        Me.Rows(totalRowNum & ":" & totalRowNum + needInsertRows - 1).Insert Shift:=xlDown
        ' 更新存储的总计行行号
        Me.Range(TOTAL_ROW_NUM_CELL).Value = totalRowNum + needInsertRows
        ' 触发指定宏
        If TRIGGER_MACRO_NAME <> "" Then Application.Run TRIGGER_MACRO_NAME
        Application.ScreenUpdating = True
    End If
End Sub

• 如果你的Query行数是公式计算出来的，没有触发Worksheet_Change事件，可以把事件名换成Worksheet_Calculate即可适配。
• 保存文件时选择.xlsm格式，同时在Excel信任中心开启宏运行权限即可。

方案2：Power Query预处理（无VBA，更稳定） #

不需要写代码，仅调整Query配置即可解决扩展问题：

• 打开Power Query编辑器，在你现有Query的输出步骤后新增步骤，给结果集最后追加1行空白占位行，占位行第一列输入固定标识如*总计占位*
• 表格总计行直接设置在占位行的下一行，设置条件格式隐藏占位行的所有显示内容
• Query刷新时会自动把占位行顶到所有数据的最末尾，总计行始终跟随在占位行下方，不会出现数据被挡住的问题。

内容的提问来源于stack exchange，提问作者Pravin Kumar Raja