如何根据数据源提取不重复项目生成二维表并根据对应条件求和

20901941

各位老师：如何用select语句对数据源 生成二维表格求和，因为数据源较大，一定要用select语句实现，详见附件

deadzlq

方法千万种，死抠SQL没用
问题不一，孰强孰弱，还不好说

20901941

目前还没有回复，自己先顶一下，分类汇总知道怎么弄，但是转置成二维表格就不会了：
Sub 当期生产销售出库汇总()
    Dim cnn As Object, rs As Object, SQL As String
    Application.Calculation = xlCalculationManual
    Set cnn = CreateObject("adodb.connection") '创建数据库连接
    cnn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
    Set rs = CreateObject("adodb.recordset") '创建一个数据集
    SQL = "select 物料,物料描述,客户,sum(数量) from ([销售发货$a7:iv] group by 物料,物料描述,客户" '设置SQL查询语句
    Set rs = cnn.Execute(SQL) '执行查询
......................

opel-wong

20901941 发表于 2019-9-8 17:16
目前还没有回复，自己先顶一下，分类汇总知道怎么弄，但是转置成二维表格就不会了：
Sub 当期生产销售出库 ...

数组与字典，速度也很快，不会比SQL差多少。

opel-wong

20901941 发表于 2019-9-8 17:16
目前还没有回复，自己先顶一下，分类汇总知道怎么弄，但是转置成二维表格就不会了：
Sub 当期生产销售出库 ...

而且你的附件中，  
数据源表中，已经有物料描述，
  
为啥一定要参照物料对照表呢？


  

opel-wong

deadzlq 发表于 2019-9-8 08:04
方法千万种，死抠SQL没用
问题不一，孰强孰弱，还不好说

就是，字典+数组，循环处理，   

用时也很快。

  

opel-wong

虽然说了用了三个字典，但是在一个循环中创建的不同keys，所以速度并不会慢。