谁帮忙看看我这个表怎么汇总啊

oyyc2011

想汇总各公司各平台全年的数据。当然我这模板只做了半年。类似吧

access新新新手

Sub 汇总工作薄数据()
    Dim br
    Sheets("汇总").Range("a2:d65536").ClearContents
    br = [{"序号","客户名称","平台名称","应收金额","实收金额"}]
    Range("A1:E1") = br
    Dim sht As Worksheet, xrow As Integer, Rng As Range
    For Each sht In Worksheets
        If sht.Name <> "汇总" Then
            Set Rng = Range("a65536").End(xlUp).Offset(1, 0)
            xrow = sht.Range("a1").CurrentRegion.Rows.Count - 1
            sht.Range("a2").Resize(xrow, 5).Copy Rng
        End If
    Next
End Sub

oyyc2011

access新新新手 发表于 2016-9-16 13:53
Sub 汇总工作薄数据()
    Dim br
    Sheets("汇总").Range("a2:d65536").ClearContents

打开之后不能启用啊。。PS。。你这个我完全看不懂啊。。我之后可能要去弄我另外一个表。。怎么弄啊

pureshadow

一个月才这么点数据，可以试试把六个表合并到一个表上，这样统计汇总就简单了。

oyyc2011

pureshadow 发表于 2016-9-16 20:01
一个月才这么点数据，可以试试把六个表合并到一个表上，这样统计汇总就简单了。

这只是个模板，实际不止，有三四十个

pureshadow

三四十个，就算50个吧，六个表也才300条数据，一个工作表可以接受一百多万条数据呢。