[已解决]怎样快速实现每页有本页小计和连前累计

爱学若渴

学习学习

迅岐同心

QUOTE:

以下是引用那么的帅在2010-9-12 23:17:00的发言：

利用定位 空值 ，和 CTRL+ENTER输入公式的方法完成

动画中，凡是输入公式的地方，请仔细观察公式构成，另外公式输入完毕后，按CTRL+ENTER 结束输入，否则只能输入一个单元格的公式

实用的解决方法

迅岐同心

QUOTE:

以下是引用bbwsj在2010-9-13 5:42:00的发言：

楼主每32人换一页纸，很有规律，公式很好整

一个SUBTOTAL函数的典型基本用法

在B36“本页小计”处输入　=SUBTOTAL(9,B4:B35)

在B37“连前累计”处输入　=SUBTOTAL(9,B$4:B35)

右拉自动填充到整行

复制36、37行到，所有的“本页小计”、“连前累计”的行就OK了

原理：SUBTOTAL函数的特性，不计算本身函数所计算的得到值，所以不必担心，“连前累计”的数会重复计算

另建议楼主，报名论坛免费基础班学习

推荐一位好友给出的VBA解答方法，大家分享！

Sub 删除分页小计和累计()
Dim x As Integer
For x = 1 To [a65536].End(xlUp).Row
    If Cells(x, 1) = "本页小计" Then
        Rows(x).Delete
    End If
    If Cells(x, 1) = "累计" Then
        Rows(x).Delete
    End If

Next x
End Sub

Sub 删除所有分页符()
Dim i As Integer
On Error Resume Next
For i = 1 To ActiveSheet.HPageBreaks.Count
    ActiveSheet.HPageBreaks(i).Delete
Next i
End Sub

[此贴子已经被作者于2010-9-20 15:30:49编辑过]