取巧一下，如果要排序，就必须加入一列拍序列才能排
Dim t As Tables("窗口1_table1")
Dim a As Subtotalgroup
t.SubtotalGroups.Clear()
'定义店铺分组
a = New Subtotalgroup '定义一个新的分组
a.Aggregate = AggregateEnum.Sum '统计类型为求和
a.GroupOn = "a店铺" '分组列为店铺
a.TotalOn = "数量,标准金额,成交金额" '统计数量和金额列
a.Caption = "{0} 小计" '设置标题
t.SubtotalGroups.Add(a) '加到分组集合中
'定义总计分组
a = New Subtotalgroup
a.Aggregate = AggregateEnum.Sum
a.GroupOn = "*" '注意总计分组用符号*表示.
a.TotalOn = "数量,标准金额,成交金额"
a.Caption = "z总计"
t.SubtotalGroups.Add(a)
t.Subtotal() '生成汇总模式
Tables("窗口1_table1).Sort = "店铺, 成交金额 DESC"
加好友 
发短信
Post By：2015/10/13 11:32:00 [显示全部帖子]
