从原始表格，怎么提取月合计数，然后另个汇总表里的汇总金额自动就更新了

MY2020

从原始表格，怎么提取月合计数，然后另个汇总表里的汇总金额自动就更新了

MY2020

怎么样才能从分类汇总表里提取每个月合计数，汇总开票金额。回收金额，应收金额。服务费。的总合计数。等到下个月数据出来，我手动录入月数据，另个表怎么才能自动更新累加数据。举例：填写在原基础表格，2月数据时，1月月合计数，数据自动累加到2月份的。1.2月的月合计数自动累加到3月份，自动更新生成。函数公式怎么套用啊。不用再从1-3重新汇总了。不需要数据透视表。

叶子Excel

这个就是你的表，数据、框线、还有对象又脏又乱，一种令人窒息的感觉。我平常汇总数据，3表原则，一个是明细表，只有一行行明细，没有汇总；一个是汇总表，只有汇总，没有明细；还有一个是报表，是根据汇总表加明细表的注释上报的。建议你先清洗数据，然后把要计算的任务留给Excel，然后把美化上报的任务留给自己。不明白你为什么不愿意用透视表，是因为透视表不好用么

约定的童话

叶子Excel 发表于 2019-11-6 15:47
这个就是你的表，数据、框线、还有对象又脏又乱，一种令人窒息的感觉。我平常汇总数据，3表原则，一个是明 ...

这么眩晕的吗？

约定的童话

Sub 汇总()
    Application.ScreenUpdating = False
    Dim MyPath, MyName, AWbName, Wb As Workbook, n, j, arr, brr(1 To 10000, 1 To 8)
    [A2:H10000] = ""
    MyPath = ActiveWorkbook.Path
    MyName = Dir(MyPath & "\" & "*.csv")
    AWbName = ActiveWorkbook.Name
    Do While MyName <> ""
        If MyName <> AWbName Then
            Set Wb = Workbooks.Open(MyPath & "\" & MyName)
            With Workbooks(1)
                arr = ActiveSheet.[a1].CurrentRegion
                For i = 2 To UBound(arr)
                    For j = 2 To 11
                        n = n + 1
                        brr(n, 1) = Split(MyName, "-")(0)
                        brr(n, 2) = Split(MyName, "-")(1)
                        brr(n, 3) = Split(MyName, "-")(2)
                        brr(n, 4) = Split(MyName, "-")(3)
                        brr(n, 5) = Split(Split(MyName, "-")(4), ".")(0)
                        brr(n, 6) = arr(i, 1)
                        brr(n, 7) = arr(1, j)
                        brr(n, 8) = arr(i, j)
                    Next
                Next
                n = Workbooks("汇总.xlsm").Sheets("汇总").[a65536].End(3).Row + 1
                Workbooks("汇总.xlsm").Sheets("汇总").Range("a" & n).Resize(UBound(brr), 8) = brr
                 n = 0: Erase brr
                Wb.Close False
            End With
        End If
        MyName = Dir
    Loop
    MsgBox "汇总完毕！", , "报告！"
    Application.ScreenUpdating = True
End Sub
给你一段代码自己会修改吗？

MY2020

叶子Excel 发表于 2019-11-6 15:47
这个就是你的表，数据、框线、还有对象又脏又乱，一种令人窒息的感觉。我平常汇总数据，3表原则，一个是明 ...

是一家人力资源外包劳务的公司，说业务量大，需要统计数据。因为领导说数据透视表需要筛选来看，比较麻烦。要一目了然可以看清楚每个客户的汇总数据，不需要再筛选来看。每个月对方公司会给出分类汇总的数据表格（表1汇总的月合计数，表2为每月分类明细），对方直接给出的数据是按月来统计的，表格里有明细和公式套好的月合计数。我需要提取每个签约客户的月合计数，比如宝宝客户，1月份月合计销量额100万，2月份月合计销量额200万，这个时候我需要汇总1月和2月的累加销售额为300万。领导的意思下次来3月数据时直接提取3月月合计销额，能不能用函数公式的方式直接提取3月数据后，另个新建的汇总数据表格直接体现宝宝客户的1月-3月数据直接累加更新数据。然后每月依此类推的只需要复制对方给的每月数据，另个新建的表格自动更新累加销量额。我觉得数据透视表可以根据提取的汇总明细登记看，自动更新。他说太麻烦。

MY2020

约定的童话 发表于 2019-11-6 16:13
Sub 汇总()
    Application.ScreenUpdating = False
    Dim MyPath, MyName, AWbName, Wb As Workbook, ...

是一家人力资源外包劳务的公司，说业务量大，需要统计数据。因为领导说数据透视表需要筛选来看，比较麻烦。要一目了然可以看清楚每个客户的汇总数据，不需要再筛选来看。每个月对方公司会给出分类汇总的数据表格（表1汇总的月合计数，表2为每月分类明细），对方直接给出的数据是按月来统计的，表格里有明细和公式套好的月合计数。我需要提取每个签约客户的月合计数，比如宝宝客户，1月份月合计销量额100万，2月份月合计销量额200万，这个时候我需要汇总1月和2月的累加销售额为300万。领导的意思下次来3月数据时直接提取3月月合计销额，能不能用函数公式的方式直接提取3月数据后，另个新建的汇总数据表格直接体现宝宝客户的1月-3月数据直接累加更新数据。然后每月依此类推的只需要复制对方给的每月数据，另个新建的表格自动更新累加销量额。我觉得数据透视表可以根据提取的汇总明细登记看，自动更新。他说太麻烦。

MY2020

约定的童话 发表于 2019-11-6 16:13
Sub 汇总()
    Application.ScreenUpdating = False
    Dim MyPath, MyName, AWbName, Wb As Workbook, ...

代码不会哦，，我用合并计算把月合计数给提取出来在Sheet2直接汇总了。另外呢，还需新建Sheet3一个表能够体现1月2月3月的数据直接累加统计。就是Sheet2按月统计，Sheet3会自动更新累加额。不用再从1-3月重新提取汇总。

MY2020

约定的童话 发表于 2019-11-6 16:12
这么眩晕的吗？

不是啊，你有看到草稿打开的数据嘛？就是原始分类汇总表格，请问添加扣扣嘛？我把表格发你看看呢？谢谢。大神啊。

跳跳狗

MY2020 发表于 2019-11-6 17:20
是一家人力资源外包劳务的公司，说业务量大，需要统计数据。因为领导说数据透视表需要筛选来看，比较麻烦 ...

直觉这个表可以用countifs或sumifs完成，但是我本非财务人员，希望楼主能做个案例出来测试。