EXCEL执行SQL语句-EXCEL实现group by功能

最新推荐文章于 2024-10-10 15:21:14 发布

击晕君

最新推荐文章于 2024-10-10 15:21:14 发布

阅读量5.8k

点赞数

文章标签： excel sql

本文链接：https://blog.csdn.net/m0_37557495/article/details/115482285

版权

突然要用到类似数据库中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开始

第四步：运行公式