作者：乔山办公网日期：
返回目录：excel表格制作
分页自动合计需要用VBA才能解zd决，Excel Home论坛上有高内手编辑有现在的代码，以下是一个链接，可以容去学习下：
http://club.excelhome.net/thread-162011-1-1.html
没这样统计过，网上看到别人这样做：
首先添加一列“页号”，然后安装每e79fa5e98193e4b893e5b19e339页行数－1的办法输入页码，然后隐藏之。
然后“分类汇总”（以页为关键字分类，对金额一栏求和），注意勾选“每组数据分页”选项。（为避免破坏原始数据，建议复制原始表为一个新的临时表后进行）
后来看到别人一个VBA作品，很不错，现在转过来，也许对你有用：
比如A列是“产品”，B列是“金额”
Dim i, t, l, x, rr, dr, tt As Integer
Dim rrr As String
Public Sub Fyhz()
t = 2
Do
i = InputBox("请输入每页拟打印的行数： （不能超过一页的范围！！！）")
If i <= 0 Or i = "" Then
MsgBox ("每页行数必须大于1！")
Else
Exit Do
End If
Loop
i = Int(i)
x = i + 1
l = Range("A65536").End(xlUp).Row
Do While l >= x
Rows(x + 1).Insert Shift:=xlDown
Cells(x + 1, 1) = "本页小计"
Cells(x + 1, 2).Formula = "=SUM(R[-" + CStr(i) + "]C:R[-1]C)"
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(x + 2)
x = (i + 1) * t
t = t + 1
l = l + 1
Loop
If l Mod (i + 1) <> 1 Then
rr = l Mod (i + 1)
rr = rr - 1
rrr = CStr(rr)
Cells(l + 1, 1) = "本页小计"
Cells(l + 1, 2).FormulaR1C1 = "=SUM(R[-" + rrr + "]C:R[-1]C)"
End If
Cells(l + 2, 1) = "合计"
Cells(l + 2, 2).FormulaR1C1 = "=SUM(R[-" + CStr(l + 1) + "]C:R[-1]C)/2"
Range(Cells(1, 1), Cells(l + 1, 2)).Locked = True
ActiveSheet.Protect
Cells(1, 1).Select
1、先把普通的表格区域转化为列表区域 2、在列表区域的最后一行，右键，汇总行，选择求和。
1、首先百点击Excel表格上方的“页面布局”选项卡，点击其中的“打印标题”。
2、然后在度打专开的窗口中点击“页眉页脚”的选项。
3、进入后点击“页脚”位置的下拉菜单，选择其中的“第一页，共？页”的选项。
4、点击确属定按钮生成设置后即可在打印时在页面下方显示页码和总的页数合计数字了。