求老师帮忙调整代码三个条件单列分类汇总，谢谢

574755961

求老师帮忙调整代码三个条件单列分类汇总，谢谢

719404338

数据透视表。

不知道为什么

如图，vba处理结果

不知道为什么

参考

iwangyi

楼主的代码第一在装入字数组的区域扩展上出了问题，有效数据只有两列；另一个问题是数组的位置与实际列位置不一

iwangyi

Sub a()
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[多条件单列分类汇总$B1:L]":
Set Rs = cn.Execute(Sql)
Do Until Rs.EOF
Sheets("目标").[a1:e1] = Array("姓名", "学校", "类别", "数量", "合计")
n = Sheets("目标").Range("b65536").End(xlUp).Row
XM = Rs.fields(0)
n = Sheets("目标").Range("b65536").End(xlUp).Row
sqll = "select 姓名,学校,类别,数量 from [多条件单列分类汇总$B1:L] WHERE 姓名='" & XM & "'"
Sheets("目标").Range("a" & n + 1).CopyFromRecordset cn.Execute(sqll)
sqlll = "select sum(数量) from [多条件单列分类汇总$B1:L] WHERE 姓名='" & XM & "'"
Sheets("目标").Range("E" & n + 1).CopyFromRecordset cn.Execute(sqlll)
Rs.movenext
Loop
End Sub

iwangyi

附件-----------------

574755961

不知道为什么 发表于 2018-8-4 19:26
参考

谢谢老师，我测试下

574755961

iwangyi 发表于 2018-8-4 21:12
附件-----------------

谢谢老师，我测试下