sql 一行求和_Excel VBA高级编程SQL检索（二）合并相同项并求和

上一篇我们已经试过用Excel 自带的索引完成了一次SQL检索的操作，今天小编带你用VBA实现SQL检索，并实现相同项求和的功能

SELECT 字段名1,SUM(字段名2) FROM [原始数据$]) GROUP BY 字段名1 ORDERBY 字段名3

废话不多说，先看效果

附上代码：

Sub total()    Dim Sql$, line&, i&       Application.ScreenUpdating = False '关闭屏幕更新    Set xx =CreateObject("adodb.connection") '设置对象    With xx        .Open"Provider=Microsoft.Ace.oledb.12.0;extended properties='excel12.0;HDR=yes';data source=" & ThisWorkbook.FullName        Sql = "select 品号,sum(数量),sum(金额),类型 from [明细$] group by品号,品名,类型 order by 品号,类型 desc"        [统计!A2].CopyFromRecordset.Execute(Sql) '放置查询结果的起始位置    End With    Application.ScreenUpdating = True End Sub

今天重点就是这个SQL语句了

Sql ="select 品号,sum(数量),sum(金额),类型 from [明细$] group by 品号,品名,类型 order by 品号,类型 desc"

 SELECT  字段名1，字段名2，字段名3

表示在该字段名下的列进行检索操作，检索后的结果将也是以字段名1，字段名2，字段名3 的顺序排列

 FROM [表名$区域]

表名：指出检索的字段所在的表格位置，可以使跨表格操作

区域：指出检索的字段所在的表格中具体的位置，如果列的名称从第一行开始，就可以不用填，如下图所示：

SELECT SUM(字段名2) FROM [原始数据$]) GROUP BY 字段名1 可求出原始数据表中字段名2根据字段名1的分类求和值

例如：select 品号,sum(数量),sum(金额)…group by 品号,品名,类型

表示找出品号,品名,类型 都相同的元素，将数量和金额相加。

 ORDER BY 品号,类型 desc

将查找的结果按“品号”为主要关键字和“品名”为次要关键字的顺序排列，Desc 意思为降序排列

转载请联系授权(微信ID： Cxx-011)

---

源文件下载地址

链接：https://pan.baidu.com/s/1Ct7BMCSVcbJik_Mm7yt2ug

提取码：cxx1

---

---