[求助] 如何在筛选项目下汇总求和，请各位大神教教菜鸟？代码是学习大神的 [

youknow

Sub shishi()
    Dim cx As New 类1, pt$, sql$
    Application.ScreenUpdating = False
    t = Array("PO1", "PO2", "PO3", "PO4")
    pt = ThisWorkbook.FullName
    For i = 0 To UBound(t)
        sql = "select  PO代码, PO订单, 区域 , 订单名称, 订单金额, 合同名称  from [订单明细$a1:g] where PO代码 = '" & t(i) & "'"
        Sheets(i + 2).Activate: Range("a1", Cells(1000, "e")).ClearContents
        [a1:e1] = Array("PO代码", "PO订单", "区域", "订单名称", "订单金额", "合同名称")
        cx.执行sql命令 pt, sql, "a2"
    Next
    Sheet2.Activate
    Application.ScreenUpdating = True
    MsgBox "提取完成，请核对！"
End Sub
需要对订单金额进行汇总，po1\po2\po3\po4这四个表中的订单金额列进行求和汇总；请大神赐教！帮帮忙

LMY123

1. 'http://club.excelhome.net/thread-1197278-1-1.html
   
2. Sub 字典_多表_多条件_单列汇总参考()
   
3.     Cells.Clear
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For Each sht In Sheets
   
6.         If InStr(sht.Name, "PO") Then
   
7.             arr = sht.UsedRange
   
8.             For i = 1 To UBound(arr)
   
9.                 s = arr(i, 2) & "," & arr(i, 4) & "," & arr(i, 1) & "," & arr(i, 3) & "," & arr(i, 6)
   
10.                 If Len(s) > 4 Then
    
11.                    If i = 1 Then
    
12.                         d(s) = arr(i, 5)
    
13.                     Else
    
14.                         d(s) = arr(i, 5) + d(s)
    
15.                     End If
    
16.                 End If
    
17.             Next i
    
18.         End If
    
19.     Next sht
    
20.     k = d.keys
    
21.     t = d.items
    
22.     ReDim brr(0 To d.Count - 1, 1 To UBound(arr, 2))
    
23.     For r = 0 To d.Count - 1
    
24.         brr(r, 1) = Split(k(r), ",")(0)
    
25.         brr(r, 2) = Split(k(r), ",")(1)
    
26.         brr(r, 3) = t(r)
    
27.         brr(r, 4) = Split(k(r), ",")(2)
    
28.         brr(r, 5) = Split(k(r), ",")(3)
    
29.         brr(r, 6) = Split(k(r), ",")(4)
    
30.     Next r
    
31.     [a1].Resize(d.Count, UBound(brr, 2)) = brr
    
32. End Sub

复制代码

LMY123

字典-同薄-多表-多条件-单列汇总.rar (35.91 KB, 下载次数: 9)

2018-9-12 11:23 上传

点击文件名下载附件

youknow

先谢谢老师支持！

youknow

LMY123 发表于 2018-9-12 11:24

老师，你搞错了，我是要把Po表中的相同的合同名称，对其订单金额进行求和到项目一览表中，并把区域也复制到项目一览表中