g.GroupOn = "项目" '分组列为客户列
g.TotalOn = "定额总重量,占类别比重,占重量比重" '对数量和金额进行统计
With Tables("计算表")
.SubtotalGroups.Clear() '清除原有的分组
.SubtotalGroups.Add(g) '加入刚刚定义的分组
.Subtotal() '生成汇总模式
End With