请问需要将每日的物料统计表做成台账，但是有多个条件，要根据入库的物料名称匹配

花花1128

请问需要将每日的物料统计表做成台账，但是有多个条件，要根据入库的物料名称匹配

博爱风雨同舟

C8=LET(A,INDIRECT(DAY($B8)&"日!C5:C100"),SUM((A="入库")*(OFFSET(A,,1)&OFFSET(A,,8)=LOOKUP("座",$C$4:C$4))*(OFFSET(INDIRECT(DAY($B8)&"日!D4"),1,MATCH(C$5,INDIRECT(DAY($B8)&"日!E4:K4"),),96))))

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 ActiveSheet
    .UsedRange.Offset(5) = Empty
    m = Sheets.Count + 10
    ar = .Range("b3:q" & m)
    For j = 2 To UBound(ar, 2) - 2 Step 3
        If ar(2, j) <> "" Then
            d(ar(2, j)) = j
        End If
    Next j
    k = 5
    For Each sh In Sheets
        If sh.Index > 1 Then
            r = sh.Cells(Rows.Count, 2).End(xlUp).Row
            k = k + 1
            br = sh.Range("b4:k" & r)
            ar(k, 1) = sh.Name
            For i = 2 To UBound(br)
                If br(i, 3) <> "" Then
                    lh = d(br(i, 3))
                    If lh <> "" Then
                        ar(k, lh) = ar(k, lh) + br(i, 5)
                        ar(k, lh + 1) = ar(k, lh) + br(i, 8)
                        ar(k, lh + 2) = ar(k, lh) + br(i, 9)
                    End If
                End If
            Next i
        End If
    Next sh
    .[b3].Resize(k, UBound(ar, 2)) = ar
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

台账.rar (87.22 KB, 下载次数: 10)

2024-6-18 16:48 上传

点击文件名下载附件

3190496160

分表都是空的，没法测试代码正确与否，自己测试看看吧，实在不行，可以加v

Excel表哥在此

思考和学习  怎样做原始记录表 以及 怎样根据原始记录表自动和动态地生成想要的各种分类汇总统计表......  即 把表格做成自己工作使用的“系统”, 是一种优秀的用表思路和方法......

花花1128

博爱风雨同舟 发表于 2024-6-18 16:40
C8=LET(A,INDIRECT(DAY($B8)&"日!C5:C100"),SUM((A="入库")*(OFFSET(A,,1)&OFFSET(A,,8)=LOOKUP("座",$C$4: ...

谢谢，老师！

3052160

不知道你这个表格的问题解决没有，这类的表格，我个人觉得应该不必要这么复杂的公式，我自己在工作中也经常用到这种类型的表，可以加我V，共同学习一下。

3052160

Excel表哥在此 发表于 2024-6-19 11:47
思考和学习  怎样做原始记录表 以及 怎样根据原始记录表自动和动态地生成想要的各种分类汇总统计表......   ...

是的，原始表要设计好，整个表结构也要设计好，表与表之间的关联也要提前设计好。

花花1128

3190496160 发表于 2024-6-18 16:48

主要是还有很多内容要根据内容模式去添加。