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='excel 12.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.Open SqlsTr, Cnn, 1, 3

   Cells(11, "p").CopyFromRecordset Rs

   Set Rs = NothingSet Cnn = Nothing

End Sub

 

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

 最后得到类似这样的结果

 

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