excel每页都有小计怎么弄

在Excel中实现每页都有小计的方法主要包括：使用分组功能、利用分页符、应用数据透视表、以及编写VBA代码。其中，利用分组功能和分页符是最常用且简单的方法。以下将详细介绍如何在Excel中每页都有小计。

一、分组功能与分页符

使用分组功能和分页符可以方便地在每页中插入小计。以下是具体步骤：

使用分组功能

准备数据：

首先，确保你的数据是按某一列分类的，例如销售数据按“产品类型”分类。
启用分组功能：
- 选中你的数据区域。
- 在Excel菜单栏中，选择“数据”标签。
- 点击“分组”按钮，然后选择“自动分组”。
插入小计：
- 在“数据”标签下，点击“小计”按钮。
- 在弹出的对话框中，选择你希望插入小计的列（例如销售额）。
- 选择“小计方法”（如求和、平均值等）。
- 勾选“每组显示小计”，然后点击“确定”。

插入分页符

插入分页符：
- 在Excel工作表中，选择你希望插入分页符的位置。
- 在“页面布局”标签下，点击“分页符”按钮，然后选择“插入分页符”。
调整分页符位置：
- 你可以通过拖动分页符来调整每页的数据量，确保每页都包含完整的小计。

二、数据透视表

数据透视表是另一种有效的方法，可以轻松实现每页都有小计。

创建数据透视表

插入数据透视表：
- 选中你的数据区域。
- 在“插入”标签下，点击“数据透视表”按钮。
- 在弹出的对话框中，选择将数据透视表插入到新工作表或现有工作表中。
配置数据透视表：
- 将分类列（例如产品类型）拖动到“行”区域。
- 将需要计算的小计列（例如销售额）拖动到“值”区域。
- 在“值”区域设置计算方法（如求和、平均值等）。
分页设置：
- 在“数据透视表工具”菜单下，选择“设计”标签。
- 点击“分区设置”，选择“每页分区”。

三、VBA代码

如果你熟悉VBA（Visual Basic for Applications），可以编写代码来实现每页都有小计。

编写VBA代码

打开VBA编辑器：
- 按下“Alt + F11”打开VBA编辑器。
插入模块：
- 在VBA编辑器中，点击“插入”菜单，然后选择“模块”。

编写代码：

在模块中编写如下代码：

Sub InsertPageSubtotals()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim subtotalRow As Long
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    Set rng = ws.UsedRange
    For Each cell In rng.Columns(1).Cells
        If cell.Row > 1 And cell.Value <> cell.Offset(-1, 0).Value Then
            subtotalRow = cell.Row
            ws.Rows(subtotalRow).Insert Shift:=xlDown
            ws.Cells(subtotalRow, rng.Columns.Count + 1).Formula = "=SUBTOTAL(9, " & rng.Columns(2).Address & ")"
        End If
    Next cell
End Sub

以上代码会在每组数据的末尾插入小计。

运行代码：
- 关闭VBA编辑器，回到Excel工作表。
- 按下“Alt + F8”打开宏对话框，选择刚刚编写的宏“InsertPageSubtotals”，然后点击“运行”。

四、总结

以上方法可以帮助你在Excel中实现每页都有小计。分组功能与分页符是最常用且简单的方法，适合大多数用户；数据透视表功能强大，适合需要进行复杂数据分析的用户；VBA代码则适合需要高度自定义和自动化的用户。根据你的具体需求选择合适的方法，可以大大提高你的工作效率。