Excel自动累加生成报表-Excel自动累加

今天有同学问，如果A1单元格里有数据，每更新一次，都在B1单元格里累加一下，要怎么弄？

摘自：小妖（Office中国）

1. 函数：
 
在A列里填数据，有多少填多少，再找一个单元格计算累计不好吗？不仅不易出错，还能查到历史记录，当然也不用担心1048576行不够用。

2. 迭代

先到选项里设置迭代，然后在B1里录入公式：
=A1+B1
就可以了。
 

猛一看上去，这是能达到效果，但是我相信绝没有人会真正喜欢这个做法，因为除了在A1里输入数据以外，每一个操作，都能让B1的结果累加一次，说不定等你下次打开工作簿时，发现B1里已经是个天文数字了。

3. 代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Application.EnableEvents = False
    Range("b1") = Range("b1") + Target
    Application.EnableEvents = True
End If
End Sub