2层筛选进行分类汇总并求平均值，求大佬帮忙

liangguang1 · 发表于 2018-6-6 21:59

2层筛选完后，进行汇总、求和、求均值，详细见附件，求大神帮忙！！

liangguang1 · 发表于 2018-6-6 22:02

大神们都睡了吗囧囧囧囧

朱荣兴 · 发表于 2018-6-6 23:28

提示: 作者被禁止或删除内容自动屏蔽

qingc0221 · 发表于 2018-6-6 23:47

本帖最后由 qingc0221 于 2018-6-7 00:06 编辑

你的data表中有点问题，最后一行并不是42，所以算出来会有一行空行。

复制代码

qingc0221 · 发表于 2018-6-6 23:49

本帖最后由 qingc0221 于 2018-6-6 23:58 编辑

标题有2个类别，我把第一个改为厂家了

liangguang1 · 发表于 2018-6-7 00:11

qingc0221 发表于 2018-6-6 23:49
标题有2个类别，我把第一个改为厂家了

昂，都行，大神赐教

qingc0221 · 发表于 2018-6-7 00:13

。。。。。。。。。。。。。
重新上代码

Sub Main()
'定义变量
Dim Conn As Object
Dim strSQL As String, strConn As String
Dim LastRow As Long
'建立连接
Set Conn = CreateObject("ADODB.Connection")
strConn = "Provider=Microsoft.Ace.Oledb.12.0;Extended Properties='Excel 12.0';Data Source=" & ThisWorkbook.FullName
Conn.Open strConn
'删除原有结果
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
If LastRow > 1 Then
Range(Rows(2), Rows(LastRow)).Delete
End If
'执行计算
strSQL = "select 厂家,类别,SUM(长度),AVG(管径),AVG(厚度),AVG(方孔长),AVG(价格),AVG(物流费) from [data$] group by 厂家,类别 order by 厂家;"
Range("A2").CopyFromRecordset Conn.Execute(strSQL)
'关闭连接
Conn.Close
Set Conn = Nothing
End Sub

复制代码

朱荣兴 · 发表于 2018-6-7 07:52

提示: 作者被禁止或删除内容自动屏蔽

朱荣兴 · 发表于 2018-6-7 07:53

提示: 作者被禁止或删除内容自动屏蔽

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-6 23:28 来自手机 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-7 07:52 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-7 07:53 \| 显示全部楼层 [广告] ★ 对Excel用户最友好的数据分析编程语言，再不发愁Excel计算困难和容量限制 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 2层筛选进行分类汇总并求平均值，求大佬帮忙