EXCEL使用VBA+SQL计算重复项之和

目的：以A列为标准，取得相同编号的C,D,E,F列的值之和。（去掉重复项，合并掉后面4列的值）

其实如果用函数是可以的，比如用Sumif，但是如果数据量过多，用函数的话可能不太好。

这里用VBA，而且使用SQL语句（数据大的话会快些），当然也可以用数组。

Sub GetDd()

Dim Cnn,Rs, SqlsTr$

Set Cnn =CreateObject(“adodb.connection”)

Set Rs =CreateObject(“adodb.recordset”)

Cnn.Open”provider=microsoft.ace.oledb.12.0;extended properties=’excel12.0;hdr=yes;imex=1′;data source=” &ActiveWorkbook.FullName

SqlsTr =”select distinct 编号,名称,sum(数量),sum(金额),sum(收现金),sum(收承兑) from [“& ActiveSheet.Name & “$” &Replace([a1].CurrentRegion.Address, “$”, “”) & “] group by编号,名称”

Rs.OpenSqlsTr, Cnn, 1, 3

Cells(11,”p”).CopyFromRecordset Rs

Set Rs =NothingSet Cnn = Nothing

End Sub

Sql语句使用了混合关键字，distinct,sum，如果不加后面的group，那么就会出现 “您的查询不包含作为函数一部分的特定表达式”这样的错误提示！

最后得到类似这样的结果

记性不好，只能记下来，否则又到相同问题又不记得了~~~供参考