大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但功能说明：由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel
上一篇我们已经试过用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 意思为降序排列
关注公众号：万能的Excel 获取更多资源！
大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但功能说明：由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel上一篇我们已经试过用Excel自带的索引完成了一次SQL检索的操作，今天小编带你用VBA实现SQL检索，并实现相同项求和的功能SELECT 字段名1,SUM(字段名2) FROM [原始数据$]) GROUP BY 字段名1 ORDERBY 字段名3废话不多说，...
如果下图所示，我们经常会遇到单号
相同
但是有几条不同的
数据
，那么这种情况下就需要让几条单号
相同
的
数据
合并
成一条，并且让它的数量和金额统计相加就可以了。
首先 需要查询出所有的单号，再把查询出来的所有的
数据
去掉重复的和空白的
数据
，得到的就是不重复的单号
数据
了。
var ReceiptsNum = (from tbReceiptsNum in myModels.PW_Receipts
where tb...
今天是2014-11-01 是周末，忙了一周了，最终能够闲下来了。想起近期工作用到的
VBA
的一个场景，结合
VBA
的数组，所以就想试试看。结果还好。出来了。这年头，又玩起了VB了，经过多时才接受了VB的种语法风格，闲话不说，进入正题
比方如上的
数据
。我如今想统计出qqq所的总和是多少？ ee的总和是多少等等，现
数据
量小。能够考虑手动统计，那假设是上千条或上万条
数据
该怎么办呢。答案肯...
