VBA 提取多列数据并排序汇总

chunyanghua2002

给我大神 帮忙看下 VBA 提取多列数据并排序汇总


如何用VBA 自动生成 感激中

martinchen99

数据透视表就可以实现的

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[源数据$A2:E]": sqll = "SELECT DISTINCT 供应商 FROM[源数据$A2:E]"
Set rs = cn.Execute(Sql): Set Rss = cn.Execute(sqll)
Do Until rs.EOF
nf = rs.fields(0)
  Do Until Rss.EOF
  gys = Rss.fields(0)
  sqlll = "select TOP 5 * from [源数据$A2:E] WHERE 年份= " & nf & " AND 供应商='" & gys & "' ORDER BY 金额CNY DESC "
  n = Range("i65536").End(xlUp).Row
  Cells(n + 1, "h") = "年份": Cells(n + 1, "i") = nf
  Cells(n + 2, "h") = "供应商": Cells(n + 2, "i") = gys
  Range("h" & n + 3).CopyFromRecordset cn.Execute(sqlll)
  Rss.movenext
  Loop
rs.movenext
Loop
End Sub

iwangyi

附件参考***************

不知道为什么

iwangyi 发表于 2018-8-4 16:52
附件参考***************

iwangyi老师的代码简短有力啊，可惜我对SQL是一窍不通呢！我试着用字典和数组写了下，发现代码多了很多哎。学习学习

不知道为什么

如图，数组字典

chunyanghua2002

iwangyi 发表于 2018-8-4 16:52
附件参考***************

感谢 但是 我想要的是手动输入输入年份和供应商后
只要出现前五的客户名称和金额，余下的用OTHERS 汇总

jiminyanyan

不知道为什么 发表于 2018-8-4 21:00
如图，数组字典

SQL 的代码也不少，3楼老师的代码和楼主的需求还差一些内容。

不知道为什么

jiminyanyan 发表于 2018-8-4 21:13
SQL 的代码也不少，3楼老师的代码和楼主的需求还差一些内容。

3楼的附件我电脑运行不了，jimin老师。看样子是硬件也不想让我进步了，呵呵。

chunyanghua2002

附件如图 谢谢！