如何提取数据汇总合计？

ruhong18

根据日期对应一致的，提取合并汇总每个sheet页的内容，并在数据尾行合计；

爱疯

合并是指什么情况？

ruhong18

爱疯 发表于 2019-11-14 14:50
合并是指什么情况？

提取数据汇总到汇总表里面，尾行进行合计

爱疯

合并仅仅是指，尾行进行合计吗？
没有同天张三同1品名的情况，是吗

ruhong18

爱疯 发表于 2019-11-14 14:56
合并仅仅是指，尾行进行合计吗？
没有同天张三同1品名的情况，是吗

根据日期对应一致的，提取合并汇总每个sheet页的内容，并在数据尾行合计；

爱疯

会不会出现这样的情况？即在同1天，有相同的加工单位，相同的品名

ruhong18

爱疯 发表于 2019-11-14 16:08
会不会出现这样的情况？即在同1天，有相同的加工单位，相同的品名

如果一张单据可以增加行数，动态递增的话，就不会有同一天，不会有相同的加工单位，相同的品名；（最好是可以动态递增）如果一张单据只能4行的话，如果遇到数量多的话，要开成2张单的话，就会出现上述您说的这种情况

爱疯

1.rar (22.58 KB, 下载次数: 7)

2019-11-14 16:45 上传

点击文件名下载附件

可能要改：我还是不清楚合并的意思，以及某些情况的处理规则
现在只是依次记下，每个表，每张单，存有的信息。

ruhong18

爱疯 发表于 2019-11-14 16:46
可能要改：我还是不清楚合并的意思，以及某些情况的处理规则
现在只是依次记下，每个表，每张单，存 ...

你好，就是要达到这样的效果，就是前提每张表的行数要一致都是13行，不然就会造成下标越界的异常情况

hfwufanhf2006

代码放在“汇总”表里面执行

Range("b5:j37").ClearContents
s = Cells(3, "j")
hs = 5
For I = 1 To Worksheets.Count
    If Worksheets(I).Name <> "汇总" And Worksheets(I).Name <> "汇总1" Then
       For k = 4 To Worksheets(I).[c10000].End(3).Row Step 13
           If s = Worksheets(I).Cells(k, "j") Then
              For j = k + 2 To k + 5
                  If IsEmpty(Worksheets(I).Cells(j, 4)) Then
                     Exit For
                  End If
                  Cells(hs, 2) = hs - 4
                  Cells(hs, 3) = Worksheets(I).Name
                  Cells(hs, 4) = Worksheets(I).Cells(j, 4)
                  Cells(hs, 6) = Worksheets(I).Cells(j, 7)
                  Cells(hs, 7) = Worksheets(I).Cells(j, 8)
                  Cells(hs, 8) = Worksheets(I).Cells(j, 9)
                  Cells(hs, 9) = Worksheets(I).Cells(j, 10)
                  Cells(hs, 10) = Worksheets(I).Cells(j, 11)
                  hs = hs + 1
              Next j
           End If
        Next k
    End If
Next I

关于最后的汇总，你表中有sum公式，别删它就行。