EXCEl打印时如何每页能自动计算合计数？

没这样统计过，网上看到别人这样做：\x0d\x0a首先添加一列“页号”，然后安装每页行数－1的办法输入页码，然后隐藏之。\x0d\x0a然后“分类汇总”（以页为关键字分类，对金额一栏求和），注意勾选“每组数据分页”选项。（为避免破坏原始数据，建议复制原始表为一个新的临时表后进行）\x0d\x0a\x0d\x0a后来看到别人一个VBA作品，很不错，现在转过来，也许对你有用：\x0d\x0a\x0d\x0a比如A列是“产品”，B列是“金额”\x0d\x0aDim i, t, l, x, rr, dr, tt As Integer\x0d\x0aDim rrr As String\x0d\x0aPublic Sub Fyhz()\x0d\x0at = 2\x0d\x0aDo\x0d\x0ai = InputBox("请输入每页拟打印的行数： （不能超过一页的范围！！！）")\x0d\x0a\x0d\x0aIf i = x\x0d\x0a\x0d\x0aRows(x + 1).Insert Shift:=xlDown\x0d\x0aCells(x + 1, 1) = "本页小计"\x0d\x0aCells(x + 1, 2).Formula = "=SUM(R[-" + CStr(i) + "]C:R[-1]C)"\x0d\x0aActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(x + 2)\x0d\x0ax = (i + 1) * t\x0d\x0at = t + 1\x0d\x0al = l + 1\x0d\x0aLoop\x0d\x0a\x0d\x0aIf l Mod (i + 1) 1 Then\x0d\x0arr = l Mod (i + 1)\x0d\x0arr = rr - 1\x0d\x0arrr = CStr(rr)\x0d\x0aCells(l + 1, 1) = "本页小计"\x0d\x0aCells(l + 1, 2).FormulaR1C1 = "=SUM(R[-" + rrr + "]C:R[-1]C)"\x0d\x0aEnd If\x0d\x0aCells(l + 2, 1) = "合计"\x0d\x0aCells(l + 2, 2).FormulaR1C1 = "=SUM(R[-" + CStr(l + 1) + "]C:R[-1]C)/2"\x0d\x0aRange(Cells(1, 1), Cells(l + 1, 2)).Locked = True\x0d\x0aActiveSheet.Protect\x0d\x0aCells(1, 1).Select

先确定你每页要打的行数，比如每15条记录，就必须为整个表加上分页符。我假设你前三行是重复出现的表头，数据最后一列是I,，那么J4输入公式，

=INT((ROW(A4)-4)/16)，然后在数据范围内选择分类汇总，“分类字段”选中J列，“汇总方式”选择求和，“选定汇总项”选择需要汇总的列，最后选中“替换当前分类汇总”、“每组数据分页”和“汇总数据显示在数据下方”即可。

确定以后就可以看到结果了。

打印之前，在“页面设置”中选中“工作表→打印标题”，把标题行前3行选中。这样，打印出来时会在每页中自动加上标题行。

合计数很简单。作为一般办公软件，EXCEL最大的特点是其计算功能，很多初学者不知道这一点。你想利用EXCEL进行自动计算每页合计数的想法是值得鼓励的。此话，不知你是否爱听。

方法是：点击需要合计数的单元格——点击菜单“∑”——用鼠标左键，拉选所要计算的单元格（估计你的表格估计不会很复杂，可在需要进行合计的第一个单元格点击鼠标左键，向下拉至最后一个需要进行合计的最后一个单元格）——松开鼠标左键——回车即可。如果需要进行合计的单元格上边已经全部有了数据的话就更简单了。只需进行前两步，回车即可。

“∑”是EXCEL常用的公式，用法也有许多变化。需要你自己摸索。总之，充分利用EXCEL的计算功能，对你十分有益，假如你从事的是经常与数字打交道的工作，更是如此。

记住，关于统计、分析、逻辑、计算等，EXCEL几乎什么都能实现。不懂就问呗！

---