主题：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