Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
12
返回列表 发新帖
楼主: 迅岐同心

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

[复制链接]
发表于 2010-9-13 16:57 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2010-9-20 15:27 | 显示全部楼层

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

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

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


实用的解决方法

回复

使用道具 举报

 楼主| 发表于 2010-9-20 15:30 | 显示全部楼层

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编辑过]
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-11-1 06:51 , Processed in 0.188827 second(s), 8 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表