如何将12个学校上交的统计表内容汇总到中心校的统计表中？

开口笑呵呵

如何将12个学校上交的统计表内容汇总到中心校的统计表中，而不用复制粘贴求和。表中黄色区域为汇总区域，区域中的内容为汇总后的结果。这是工作中经常遇到的问题，中心校管辖12个学校，每次统计类似的工作都是复制粘贴，重复同样的工作，想着一定有简单的方法，请高手指教，谢谢。
信息汇总问题.rar (85.84 KB, 下载次数: 23)

2018-8-21 18:44 上传

点击文件名下载附件

micch

跨文件引用数据，还要参与统计计算？如果经常做同类工作，不如求助个代码合并文件，然后一个文件里12个表用函数统计就方便多了

开口笑呵呵

micch 发表于 2018-8-21 19:08
跨文件引用数据，还要参与统计计算？如果经常做同类工作，不如求助个代码合并文件，然后一个文件里12个表用 ...

不懂，不知道如何做。

开口笑呵呵

micch 发表于 2018-8-21 19:08
跨文件引用数据，还要参与统计计算？如果经常做同类工作，不如求助个代码合并文件，然后一个文件里12个表用 ...

不懂，不知道如何做，请具体指教。

micch

找VBA求助，弄个合并文件的代码；虽然非常简单，但是我不会写代码；

这样每次做同样工作的时候，直接合并文件成一个文件，里面有12个表。在这个基础上可以用函数得到你想要的统计；或者干脆直接写个连统计都做了的代码，就一劳永逸了

xiangbaoan

…………仅供参考…………

开口笑呵呵

xiangbaoan 发表于 2018-8-22 10:42
…………仅供参考…………

先谢谢，试过了，是一种方法，但有错误，关键是我对VBA不懂，刚开始学习，只是把你写的复制过去了，可能出现了错误。不过，也谢谢。

xiangbaoan

开口笑呵呵 发表于 2018-8-22 18:59
先谢谢，试过了，是一种方法，但有错误，关键是我对VBA不懂，刚开始学习，只是把你写的复制过去了，可能 ...

'此段与模拟结果一致
Sub 多簿汇总()
Application.ScreenUpdating = False
Dim f As Object, ar, r%, c%, br&(1 To 8, 1 To 6), xx$, st$
For Each f In CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path).Files
    If Right(f.Name, 4) = ".xls" And f.Name <> ThisWorkbook.Name Then
        With Workbooks.Open(f)
            With .Sheets(1)
                xx = Split(Split(Replace(.[a2], " ", ""), "填表人")(0), "：")(1)
                st = st & xx & .[d4] & Chr(10)
                ar = .Range("d5:i12")
            End With
            .Close False
        End With
        For r = 1 To UBound(ar)
            For c = 1 To UBound(ar, 2) - 1
                If Val(ar(r, c)) Then br(r, c) = br(r, c) + ar(r, c)
            Next
        Next
    End If
Next
For r = 1 To 3
    For c = 1 To UBound(br, 2) - 1
        If Val(br(r, c)) Then br(r, 6) = br(r, 6) + br(r, c)
    Next
    br(8, 6) = br(8, 6) + br(r, 6)
Next
Range("d4") = st
Range("d5:i12") = br
Application.ScreenUpdating = True
End Sub