作者:乔山办公网日期:
返回目录:excel表格制作
假设要求每20行为一页:
1、表格右边添加一辅助列如R列,标题为“列”。选中R2:R21,在编辑栏内输入zd1,同时按CTRL+ENTER。在R22中输入 =R2+1,向下拖。
2、点R1,分类汇总,分类字段为“列”,汇总方式为求和,汇总项为要小计的项目,并勾选“每组数据分页”。
3、删除辅助列。
4、光标定在专数据区内,CTRL+A选中表格,数据、组及分级显示、取消分组属、行。
5、选中表格,编辑、定位、空值 ,在编辑栏内输入“小计”,同时按CTRL+ENTER。
先确定你每页要打的行百数,比如每15条记录,就必须为整个表加上分页符。我假设你前三行是重复出现的表头,数据最后一列是I,,那么J4输入公式度, =INT((ROW(A4)-4)/16),然后在数据范围内选择分类汇总,“分类字段”选中J列,“汇知总方式”选择求和,“选定汇总项”选择需要汇总的列,最后选中“替换当前分类汇总”、“每组数据分页道”和“汇总数据显示在数据下方”即可。确定以后内就可以看到结果了。打印之前,在“页面设置”中选中“工作表→打印标题”,把标题行前3行选中。这样,打印出来时会在每页中自动加上标容题行。
可以在Excel格式里可以通过将单元格格式设置成”文本“的格式,再输入文字,变可以完整显示分页合计数。
具体设置如下图所示。
选中单元格
设置文本,并在选中的单元格内输入数据即可。
没这样统计过,网上看到别人这样做:
首先添加一列“页号”,然后安装每页行数-1的办法输入页码,然后隐藏之。
然后“分类汇总”(以页为关键字分类,对金额一栏求和),注意勾选“每组数据分页”选项。(为避免破坏原始数据,建议复制原始表为一个新的临时表后进行)
后来看到别人一个VBA作品,很不错,现在转过来,也许对7a686964616fe78988e69d83334你有用:
比如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