1、首先将表头删除,在页面设置中设置表头,使表的第一行就是数据行。2、对本张工作表进行行高设置,然后进行预览。看每一页有多少行。代码中“20”表示每页有20行。假设本张工作表有15页。3、我编写了对第2列每页求和,已在2003版本上测试并通过。不知能否满足。Sub 合计()Dim i As IntegerFor i = 1 To 15
Cells(i * 20, 2) = WorksheetFunction.Sum(Range(Cells(20 * (i - 1) + 1, 2), Cells(20 * i - 1, 2)))NextEnd Sub...