★多工作表累加并汇总到第一张表（详解）

ljsandy

将相同格式的多个工作表进行累加并汇总到第一张表
数据库中，每个月可以拉出一个小结表。
现在用VBA实现对每个月的表进行累加并制作年度总表。
当然前提是每个月的小结表的格式是相同的。
请看附件。
Sheets_Accumulate_090409.zip (22.83 KB, 下载次数: 200)

2009-4-20 21:25 上传

点击文件名下载附件

[ 本帖最后由 ljsandy 于 2009-4-30 11:04 编辑 ]

ljsandy

Sub TT()

Dim Temp
Dim colN As Integer
Dim rowN As Integer
Dim a As Integer 'row
Dim b As Integer 'col

colN = 43   '设置末列
rowN = 9    '设置末行

For a = 4 To rowN   '从第4行到第9行

    For b = 4 To colN   '从第4列到第43列

           
        Temp = 0
   
        For i = 1 To Sheets.Count
        
            If Sheets(i).Name <> "Total" Then   '因为“Total”是汇总表，不参与累加循环
            
                Temp = Temp + Sheets(i).Cells(a, b).Value
               
            End If

        Next i
        
        Cells(a, b).Value = Temp
        
        'Temp = 0

    Next b

Next a

End Sub

htcwy

这样可以达到目的，但如何SHEET数很多，全部放到内存中会不会很慢

ljsandy

这里只使用了一个中间变量，进行累加计算并赋值给单元格，所以程序本身不会占用太多的内存资源。3楼说的慢，要看你具体要累加的数据有多少了。大家是否有其他更好的方法。

wenwen000424

谢谢分享,学习一下.

jinmaji

多谢，问题已经解决！非常感谢！

micmiclam

不错，多谢分享

飞云楼主

很实用的代码。