突然要用到类似数据库中group by的方法统计数据,找了很久怎么在excel上实现都没有找到很好的解决方法(很多说是用数据透视表,数据合并之类的,但是感觉效果不理想)
最后终于找到了可以用VBA实现,就算没学过VBA,按照下面的方法,修改一下参数就可以实现当前文件表格的合并计算了
第一步:
原文件上新建一个工作表
第二步:
右键点工作表页签名,找到“查看代码”
第三步:编写代码
Sub 合计()
Set CONN = CreateObject("ADODB.Connection")
CONN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select sum(列名1),列名2,列名3,列名4,列名5,列名6,列名7,列名8 ,列名8 from [表0$A:I] group by 列名2,列名3,列名4,列名5,列名6,列名7,列名8 ,列名8 order by 列名2"
Sheets("sheet1").[A1].CopyFromRecordset CONN.Execute(Sql)
CONN.Close: Set CONN = Nothing
End Sub
PS:
(1)表0$A:I 表示:表0的A到I列为原始数据
(2)Sheets("sheet1").[A1] 表示:保存结果到sheet1从A1开始
第四步:运行公式
如上操作即可生成sql语句的执行结果。
参考资料:http://www.360doc.com/content/13/1107/22/406571_327535401.shtml