请问，每天手工填入出库明细自动生成按日期的统计表，如何实现

墨墨20240831

表格一是按订单生成的出库表，表格二是按日期统计的数量，如何自动生产

wp231957

=DROP(GROUPBY(A1:A14,B1:F14,SUM),-1)

Askinofblue

给你用表堆堆做了出来，请参考附件





表堆堆可以百度了解一下

3190496160

Sub 统计()
Dim ar As Variant
Dim d As Object
Dim br()
Set d = CreateObject("scripting.dictionary")
With Sheets("出库明细")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(1, Columns.Count).End(xlToLeft).Column
    If r < 2 Then MsgBox "出库明细为空！": End
    ar = .Range(.Cells(1, 1), .Cells(r, y))
End With
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
br(1, 1) = "日期"
k = 1
For i = 2 To UBound(ar)
    If ar(i, 1) <> "" Then
        t = d(ar(i, 1))
        If t = "" Then
            k = k + 1
            d(ar(i, 1)) = k
            t = k
            br(k, 1) = ar(i, 1)
        End If
        For j = 2 To UBound(ar, 2)
            br(1, j) = ar(1, j)
            br(t, j) = br(t, j) + IIf(ar(i, j) = "", ar(i, j) = 0, ar(i, j))
        Next j
    End If
Next i
With Sheets("出库日统计")
    .[a1].CurrentRegion.Borders.LineStyle = 0
    .[a1].CurrentRegion = Empty
    .[a1].Resize(k, UBound(br, 2)) = br
    .[a1].Resize(k, UBound(br, 2)).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

求助出库表模版.rar (27.46 KB, 下载次数: 4)

2024-9-30 15:00 上传

点击文件名下载附件

zpy2

select 日期,colIdxf[1:]{sum(%s) %s} from 基础分类统计求和 group by 日期;

ykcbf1100

VBA参与一下。。。

ykcbf1100

参与一下