以下是引用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编辑过] |