工作表多项目计算汇总，请大神帮忙

ptjtlt260

要求：
1.品名：筛选1到12个工作表A列不重复值。
2.数量1：根据品名对应的1到12个工作表数量1相加
3.数量2：根据品名对应的1到12个工作表数量2相加
4.项目1：根据品名对应的（1工作表项目1*1工作表数量1）+（2工作表项目1*2工作表数量1）。。。。。。（12工作表项目1*12工作表数量1）再除于汇总表的数量1
5.项目2到16都是用上面（项目1）方法计算。(所有项目都是*各工作表的数量1）

ptjtlt260

请老师帮忙下，谢谢

lsc900707

这个题需要时间处理，静待结果吧。先帮你顶一下。

魂断蓝桥

Sub a()
Dim sh As Worksheet, sql$, bt, i%, T$
bt = [{"品名","数量1","数量2","项目1","项目2","项目3","项目4","项目5","项目6","项目7","项目8","项目9","项目10","项目11","项目12","项目13","项目14","项目15","项目16"}]
For Each sh In Sheets
    If sh.Name < >"汇总" Then
        For i = 1 To UBound(bt)
            sql = sql & bt(i) & ","
        Next
            sql = Left(sql, Len(sql) - 1)
            sql = "SELECT " & sql & " FROM [" & sh.Name & "$A2:T] WHERE 品名 is not null UNION ALL "
    End If
        T = T & sql
        sql = ""
Next
T = Left(T, Len(T) - 11)
For i = 4 To UBound(bt)
    sql = sql & "SUM(" & bt(i) & ")/SUM(数量1),"
Next
sql = Left(sql, Len(sql) - 1)
sql = "SELECT 品名,null,SUM(数量1),SUM(数量2)," & sql & "FROM (" & T & ") " & "GROUP BY 品名"
Dim cnn As Object
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Range("a3:z9999").ClearContents
[a3].CopyFromRecordset cnn.Execute(sql)
cnn.Close: Set cnn = Nothing
End Sub

ptjtlt260

魂断蓝桥 发表于 2017-1-4 10:35
Sub a()
Dim sh As Worksheet, sql$, bt, i%, T$
bt = [{"品名","数量1","数量2","项目1","项目2","项目3 ...

数据计算有问题，请再帮忙修改下，谢谢了！
数量1各数量2计算没有错。
项目1、项目2.......等都是在各分表先*各自分表的数量1后再相加的，先加完了最后再除于汇总的数量1。（你是直接把各分表项目1相加再除于汇总的数量1，数据关系就变了）

魂断蓝桥

ptjtlt260 发表于 2017-1-4 16:07
数据计算有问题，请再帮忙修改下，谢谢了！
数量1各数量2计算没有错。
项目1、项目2.......等都是在各 ...

Sub a()
Dim sh As Worksheet, sqt1$, sqt2$, bt, i%, T$, sql$
bt = [{"品名","数量1","数量2","项目1","项目2","项目3","项目4","项目5","项目6","项目7","项目8","项目9","项目10","项目11","项目12","项目13","项目14","项目15","项目16"}]
For Each sh In Sheets
    If sh.Name <> "汇总" Then
        For i = 4 To UBound(bt)
            sqt1 = sqt1 & "数量1*" & bt(i) & "+"
        Next
            sqt1 = "(" & Left(sqt1, Len(sqt1) - 1) & ") as 数量"
                For i = 1 To UBound(bt)
                    sqt2 = sqt2 & bt(i) & ","
                Next
                    sqt2 = Left(sqt2, Len(sqt2) - 1)
                    sql = sqt1 & "," & sqt2
            sql = "SELECT " & sql & " FROM [" & sh.Name & "$A2:T] WHERE 品名 is not null UNION ALL "
    End If
        T = T & sql
        sql = "": sqt1 = "": sqt2 = ""
Next
[a3] = T
T = Left(T, Len(T) - 11)
For i = 4 To UBound(bt)
    sql = sql & "SUM(" & bt(i) & ")/SUM(数量),"
Next
sql = Left(sql, Len(sql) - 1)
sql = "SELECT 品名,null,SUM(数量1),SUM(数量2)," & sql & "FROM  (" & T & ") " & "GROUP BY 品名"
Debug.Print sql
Dim cnn As Object
Set cnn = CreateObject("ADODB.CONNECTION")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Range("a3:z9999").ClearContents
[a3] = sql
[a3].CopyFromRecordset cnn.Execute(sql)
cnn.Close: Set cnn = Nothing
End Sub

jjmysjg

留下记号，下载看看

ptjtlt260

魂断蓝桥 发表于 2017-1-5 08:25
Sub a()
Dim sh As Worksheet, sqt1$, sqt2$, bt, i%, T$, sql$
bt = [{"品名","数量1","数量2","项目1 ...

用这个还是和上次一样，顺序应该是：
1各分表项目*各自分表的数量1（数量1不变，各项目分别*数量1）。
2.各项目都*后再12张分表相加。
以上用公式表示：（1分表项目1*1分表数量1+2分表项目1*2分表数量1+........）/汇总表数量1
项目2......也是按以上方法计算。
3.相加后再除于汇总表里面的数量1

ptjtlt260

上传附件，请帮忙大神再看下，谢谢

ptjtlt260

你上面写的是先合并后再乘，我的要求是先乘后再合并除于汇总表里的数量1的