VBA如何分组求和在原表插入合计行

ericxzhou · 发表于 2022-8-13 15:27

选中表格，先排序，再点分类汇总。

zpy2 · 发表于 2022-8-13 16:18

select rowid,* from 分组求和在原表插入合计行 limit 3;select 名称,类型,价格,销量,销售额 from 分组求和在原表插入合计行

u nion all

select '合计' 名称,类型||' ',价格,sum(销量),sum(销售额) from 分组求和在原表插入合计行 group by 类型 order by 类型;

blackttea1 · 发表于 2022-8-13 19:12

学习啦，谢谢

micch · 发表于 2022-8-14 08:42

Excel自带汇总不香吗

Sub Luzhi()
With Range("A1")
.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(4, 5), _
Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End With
ar = Range("a1").CurrentRegion.Value
Range("A1").RemoveSubtotal
Range("a1").Resize(UBound(ar), 5) = ar
End Sub

复制代码

lizhipei78 · 发表于 2022-8-14 10:17

ericxzhou 发表于 2022-8-13 15:27
选中表格，先排序，再点分类汇总。

跟我想到一起去了

℡Soul · 发表于 2022-8-14 14:02

		自动登录	找回密码
密码			免费注册

[求助] VBA如何分组求和在原表插入合计行

评分

评分