无需宏的基础方案 #

这个方案用Excel内置功能实现，后续更新数据后无需手动调整格式：

1. 固定打印区域与重复表头

   • 选中包含表头的工时数据区域，点击「页面布局」→「打印区域」→「设置打印区域」。
   • 继续在「页面布局」中点击「打印标题」，在「顶端标题行」选择你的表头行，确保每页打印都带表头。

2. 动态分页求和公式

   • 在数据列旁插入辅助列（比如E列），用于标记当前行所属的打印页：
     • 按Ctrl+F3打开名称管理器，新建名称CurrentPage，引用位置输入：

       =GET.CELL(48,Sheet1!$A$1)
       

       （把Sheet1改成你的工作表名称）
     • 在E2单元格输入=CurrentPage，下拉填充到所有数据行。
   • 在每页预留的总计行（可在分页预览模式下确定位置），用SUMIF计算当前页的工时总和：

     =SUMIF($E:$E, CurrentPage, $D:$D)
     

     （$D:$D是你的工时数据列，根据实际修改）

3. 自动累计总计

   • 累计总计用动态累计求和公式，在累计单元格输入：

     =SUBTOTAL(9,$D$2:D当前行)
     

     这个公式会自动计算从第2行到当前行的所有工时总和，且忽略隐藏行，适配分页后的显示需求。
   • 打印时，在「自定义页脚」中引用这个累计单元格（比如输入&$F$1，假设累计值在F1），就能让每页底部显示累计总计。

VBA自动化方案（完全自动适配更新） #

如果要实现自动插入分页符、生成每页总计与累计，后续更新日志后一键刷新，用以下VBA脚本：

1. 代码实现
   按Alt+F11打开VBA编辑器，插入模块，粘贴代码：

   Sub AutoGenerateTimeSheetTotals()
       Dim ws As Worksheet
       Dim lastDataRow As Long, currentPageEndRow As Long, startRow As Long
       Dim hoursCol As Integer, dateCol As Integer
       Dim pageMaxRows As Integer ' 每页最多显示的数据行数
       
       ' 配置参数，根据你的表格修改
       Set ws = ThisWorkbook.Worksheets("工时日志") ' 工作表名称
       hoursCol = 4 ' 工时列（D列）
       dateCol = 1 ' 日期列（A列）
       pageMaxRows = 30 ' 每页最多显示30条数据，按需调整
       
       ' 清除旧的分页符和总计行
       ws.ResetAllPageBreaks
       On Error Resume Next
       ws.Cells.SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents ' 清除旧的总计文本
       ws.Cells.SpecialCells(xlCellTypeFormulas, xlNumbers).ClearContents ' 清除旧的总计公式
       On Error GoTo 0
       
       ' 获取数据最后一行
       lastDataRow = ws.Cells(ws.Rows.Count, dateCol).End(xlUp).Row
       startRow = 2 ' 数据起始行（表头在第1行）
       
       Do While startRow <= lastDataRow
           ' 计算当前页的最后一行
           currentPageEndRow = startRow + pageMaxRows - 1
           If currentPageEndRow > lastDataRow Then currentPageEndRow = lastDataRow
           
           ' 插入当前页总计行
           ws.Rows(currentPageEndRow + 1).Insert
           ws.Cells(currentPageEndRow + 1, dateCol).Value = "当前页工时总计"
           ws.Cells(currentPageEndRow + 1, hoursCol).Formula = "=SUM(" & ws.Cells(startRow, hoursCol).Address & ":" & ws.Cells(currentPageEndRow, hoursCol).Address & ")"
           
           ' 插入累计总计行
           ws.Rows(currentPageEndRow + 2).Insert
           ws.Cells(currentPageEndRow + 2, dateCol).Value = "累计工时总计"
           ws.Cells(currentPageEndRow + 2, hoursCol).Formula = "=SUM(" & ws.Cells(2, hoursCol).Address & ":" & ws.Cells(currentPageEndRow, hoursCol).Address & ")"
           
           ' 插入分页符
           ws.HPageBreaks.Add Before:=ws.Rows(currentPageEndRow + 3)
           
           ' 更新下一页起始行
           startRow = currentPageEndRow + 3
       Loop
       
       ' 更新打印区域
       ws.PageSetup.PrintArea = ws.Range(ws.Cells(1, 1), ws.Cells(startRow - 1, hoursCol)).Address
   End Sub
   

   • 修改代码开头的配置参数，匹配你的表格结构。
   • 更新日志后，运行这个宏即可自动重新调整分页和计算所有总计。

2. 快速执行设置
   在工作表中插入一个形状（比如矩形），右键选择「指定宏」，关联上面的AutoGenerateTimeSheetTotals宏，点击即可一键执行。

打印页脚设置技巧 #

如果不想在数据区域插入总计行，可直接在页脚引用计算结果：

• 点击「页面布局」→「页脚」→「自定义页脚」，在需要显示的位置输入&[单元格地址]，比如&$G$5（假设累计总计在G5），就能在每页底部自动显示该值。

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