有什么简单快捷的汇总方法？

裙子短了

如图所示，每天所有单位的配送数据在一张工作薄中，怎么样快速汇总一个月该单位配送的每样产品的数量和金额？

裙子短了

每个单位每天发货的商品可能会不同，也可能某一天不给该单位发货，最后月底要汇总一下当月给这个单位发送了哪些商品，每一个商品的数量总数和金额总数

alan57

建议原文件放一起标明日期,就可以用透视表来做很简单了.
如果用现在的原始数据,可以用vstack来将一个月数据整合在一起,然后用filter来做筛选,这样比较麻烦,还不如用透视表简单.

是个小菜鸡啊

我举个栗子
如果说每个子表格的抬头都是一样的，我们是不是可以先把所有的表格都汇总在一张上面。然后用数据透视表统计？我也有相似的数据需要统计，暂且是用这种方法。你可以参考一下
Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
   If Sheets(j).Name <> ActiveSheet.Name Then
       X = Cells(Rows.Count, 1).End(xlUp).Row + 1
       Sheets(j).UsedRange.Copy Cells(X, 1)
   End If
Next
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

洋务德雷

是个小菜鸡啊 发表于 2022-8-6 17:09
我举个栗子
如果说每个子表格的抬头都是一样的，我们是不是可以先把所有的表格都汇总在一张上面。然后用数 ...

为啥一开始不把这些数据都放到一个工作表内呢？一开始就放到一起不就容易汇总了吗？想想，是不是这个道理呢？

sobili

用PQ，数透，VBA皆可。

Michael9923

PQ+10086

3190496160

Sub 分类汇总()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
ReDim arr(1 To 100000, 1 To 5)
For Each sh In Worksheets
    If sh.Name <> "汇总" Then
        ar = sh.[a1].CurrentRegion
        For i = 3 To UBound(ar)
            If Trim(ar(i, 1)) <> "" Then
                If Trim(ar(i, 1)) <> "合计" Then
                    t = d(Trim(ar(i, 1)))
                    If t = "" Then
                        k = k + 1
                        d(Trim(ar(i, 1))) = k
                        t = k
                        arr(k, 1) = k
                        arr(k, 2) = ar(i, 1)
                        arr(k, 3) = ar(i, 2)
                    End If
                    arr(t, 4) = arr(t, 4) + ar(i, 4)
                    arr(t, 5) = arr(t, 5) + ar(i, 9)
                End If
            End If
        Next i
    End If
Next sh
With Sheets("汇总")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("a3:e" & r + 1).Borders.LineStyle = 0
    .Range("a3:e" & r + 1) = Empty
    .[a3].Resize(k, UBound(arr, 2)) = arr
    .[a3].Resize(k, UBound(arr, 2)).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

7月份送货表.rar (85.51 KB, 下载次数: 9)

2022-8-7 11:02 上传

点击文件名下载附件

yujxgood

你的这个统计表，就是单独为统计而做的。其实有更省劲的方法：添加个订货单、发货单，建立客户档案、商品档案、打印、保存、统计一次完成。