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

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