vba自动分类汇总

wz14535

热心人不少，温暖

曹银强

Sub tt()
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select distinct 购货单位 from [销售明细$]"
Set rs = cn.Execute(Sql)
Rows(1).Copy Sheets("客户").Rows(2)
Do Until rs.EOF
x = rs.fields(0)
sqll = "select * from [销售明细$] where 购货单位='" & rs.fields(0) & "' "
sqlll = "select sum(销售金额）from [销售明细$] where 购货单位='" & rs.fields(0) & "' "
n = Sheets("客户").Range("a65536").End(xlUp).Row + 2
Sheets("客户").Range("a" & n).CopyFromRecordset cn.Execute(sqll)
n = Sheets("客户").Range("a65536").End(xlUp).Row + 1
'Sheets("客户").Range("j" & n).CopyFromRecordset cn.Execute(sqlll)
rs.MOVENEXT
Loop
End Sub

曹银强

朱荣兴 发表于 2018-7-27 09:06
每个人都有一个过程，对后来之人，是提携，帮助，而不是嘲讽。

满满温暧的版主

逍遥之浪子

mikezhan 发表于 2018-7-27 08:57
用VBA 却不使用数组、字典，就是白搭！

给你个金箍棒，你却去当搅屎棍！

学VBA第一天

iwangyi

逍遥之浪子 发表于 2018-7-27 20:41
学VBA第一天

学习第一天，真了不起。在现实中，解决问题是第一，代码速度是第二。

zhangcheng6688

曹银强 发表于 2018-7-27 10:38
Sub tt()
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

不错，要好好学一下，谢谢！

霜雪GILL

不知道为什么 发表于 2018-7-26 22:33
都送小花了，那必须得给做出来了啊，我就猜题做了

哈哈哈！谢谢了！：-）

霜雪GILL

xiaoqiang17 发表于 2018-7-26 22:51
试做，供参考。

谢谢你的帮助：）

霜雪GILL

逍遥之浪子 发表于 2018-7-27 01:27
说明：你先在销售明细所在的工作簿中新建一张名叫汇总的工作表，然后将代码复制运行

Sub 汇总()

谢谢你的帮助：）