急求大侠帮助，自动分类汇总，并求平均单价？

zengsijun · 发表于 2018-7-10 09:09

急求大侠帮助，不定行数自动分类汇总，并求平均单价？

lenghonghai601 · 发表于 2018-7-10 09:11

具体说明一下根据什么求什么，最好有模拟结果。

zengsijun · 发表于 2018-7-10 09:14

lenghonghai601 发表于 2018-7-10 09:11
具体说明一下根据什么求什么，最好有模拟结果。

左边的数据，右边的就是想要生成的结果！

zengsijun · 发表于 2018-7-10 09:16

数量栏和总价栏是分类求和得来的，单价栏是用总价除以数量得出来的平均单价！

zengsijun · 发表于 2018-7-10 09:17

麻烦大侠给处理下，数据太多，用筛选又太麻烦，还得手动填数据，

lenghonghai601 · 发表于 2018-7-10 09:22

Sub test()
Dim cnn As Object
Set cnn = CreateObject("adodb.connection")
cnn.Open "Provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
rw = Sheet1.Range("b65536").End(xlUp).Row
mysql = "select 型号,sum(数量),round(sum(小计)/sum(数量),2),sum(小计) from [混凝土量价$b1:e" & rw & "] where 型号<>'' group by 型号"
Range("g2").CopyFromRecordset cnn.Execute(mysql)
cnn.Close
End Sub

复制代码

zengsijun · 发表于 2018-7-10 09:29

谢谢大侠圆满地解决了我的问题！！

weisilisid · 发表于 2018-7-10 09:30

用公式处理就可以了，详见附件

zengsijun · 发表于 2018-7-10 11:03

如何修改为二个条件汇总？

weisilisid · 发表于 2018-7-10 14:25

数组公式，详见附件
用6楼的，ADO 方法也可以，修改一下

mysql = "select 型号,模式，sum(数量),round(sum(小计)/sum(数量),2),sum(小计) from [混凝土量价$b1:e" & rw & "] where 型号<>'' group by 型号，模式"

微信截图_20180710142034.png

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

[求助] 急求大侠帮助，自动分类汇总，并求平均单价？

评分

评分