求大神帮忙！多条件多表格的数据求和

wowujie

求大神帮忙！总表里面的橙色区域是要满足前面批次号和工序两种条件的求和，工作表有很多个，用于生产完成情况的追踪!

良良

F3=SUM(SUMIFS(INDIRECT({"张丽","王丽","张芳"}&"!I:I"),INDIRECT({"张丽","王丽","张芳"}&"!B:B"),$A3,INDIRECT({"张丽","王丽","张芳"}&"!H:H"),F$2))，下拉、右拉。

3190496160

要跨很多个工作表汇总，而且，工作表数量名称不确定，最好的解决办法还是vba

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim i As Long, r As Long, rs As Long
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("总表")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range(.Cells(3, 6), .Cells(r + 1, 12)) = Empty
    ar = .Range(.Cells(2, 1), .Cells(r, 12))
   
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            d(Trim(ar(i, 1))) = i
        End If
    Next i
    For j = 6 To UBound(ar, 2)
        If Trim(ar(1, j)) <> "" Then
            d(Trim(ar(1, j))) = j
        End If
    Next j
   
    For Each sh In Sheets
        If sh.Name <> "总表" Then
             rs = sh.Cells(Rows.Count, 1).End(xlUp).Row
             br = sh.Range("a1:i" & rs)
             For i = 2 To UBound(br)
                If Trim(br(i, 2)) <> "" Then
                    xh = d(Trim(br(i, 2)))
                    lh = d(Trim(br(i, 8)))
                    If xh <> "" And lh <> "" Then
                        ar(xh, lh) = ar(xh, lh) + br(i, 9)
                    End If
                End If
            Next i
        End If
    Next sh
     .Range(.Cells(2, 1), .Cells(r, 12)) = ar
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

生产订单号.rar (28.32 KB, 下载次数: 18)

2022-9-13 17:41 上传

点击文件名下载附件

wowujie

3190496160 发表于 2022-9-13 17:30
要跨很多个工作表汇总，而且，工作表数量名称不确定，最好的解决办法还是vba

多谢，主要是我不会vba，小白一个，再次感谢

3190496160

wowujie 发表于 2022-9-14 07:21
多谢，主要是我不会vba，小白一个，再次感谢

不会只要会用就行了吧，每次点击按钮实现数据汇总

wowujie

3190496160 发表于 2022-9-14 18:04
不会只要会用就行了吧，每次点击按钮实现数据汇总

嗯嗯  教训的是