用VBA怎样插入”“本月合计”和“本年累计”

在A1插入“本月合计”代码如下：

[a1]="本月合计"

或者：range("A1")="本月合计"

插入“本年累计”方法相同。

1、首先将表头删除，在页面设置中设置表头，使表的第一行就是数据行。

2、对本张工作表进行行高设置，然后进行预览。看每一页有多少行。代码中“20”表示每页有 20行。假设本张工作表有15页。

3、我编写了对第2列每页求和，已在2003版本上测试并通过。不知能否满足。

Sub 合计()

Dim i As Integer

For i = 1 To 15

Cells(i * 20, 2) = WorksheetFunction.Sum(Range(Cells(20 * (i - 1) + 1, 2), Cells(20 * i - 1, 2)))

Next

End Sub

---