主题：SubtotalGroup 分组汇总

Dim g As New SubtotalGroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "币制"
g.TotalOn = "余额"
g.Caption = "{0} 小计"
With Tables("对帐表")
    .SubtotalGroups.Clear() '清除原有的分组
    .SubtotalGroups.Add(g) '加入刚刚定义的分组
    .Subtotal '生成汇总模式 
End With


利用如上公式,如分组行各只有一行时,不能形成分组统计.如下图

此主题相关图片如下：片段_3.jpg

估计是有限制,至少二行以上吧,要请贺老师看看

这应该是一个bug，
把总计去掉了，这个bug就会出现。

不信你试试分组列不止一行，只要没有总计，错误就会出现

收到，有空我检查一下。

楼上说错了，这个bug出现的条件是：
1、没有总计；
2、最后一个分组只有一条记录

等于一行时，自己写个代码也行～

呵呵，明白。

晕，分组统计也有这个问题。