Office中国论坛/Access中国论坛

标题: 谁帮忙看看我这个表怎么汇总啊 [打印本页]

作者: oyyc2011 时间: 2016-9-16 11:03
标题: 谁帮忙看看我这个表怎么汇总啊
想汇总各公司各平台全年的数据。当然我这模板只做了半年。类似吧

作者: access新新新手 时间: 2016-9-16 13:53
本帖最后由 access新新新手于 2016-9-16 13:55 编辑

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
[attach]59966[/attach]

作者: oyyc2011 时间: 2016-9-16 16:38

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

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

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

作者: oyyc2011 时间: 2016-9-17 19:39

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

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

作者: pureshadow 时间: 2016-9-20 19:51
三四十个，就算50个吧，六个表也才300条数据，一个工作表可以接受一百多万条数据呢。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)