Excel自动累加

今天有同学问，如果A1单元格里有数据，每更新一次，都在B1单元格里累加一下，要怎么弄？
摘自：小妖（Office中国）
1. 函数：

在A列里填数据，有多少填多少，再找一个单元格计算累计不好吗？不仅不易出错，还能查到历史记录，当然也不用担心1048576行不够用。
2. 迭代先到选项里设置迭代，然后在B1里录入公式：
=A1+B1
就可以了。
1486628132116129.jpg (118.32 KB, 下载次数: 0, 售价: 3 金钱)

2022-4-25 12:06 上传

点击文件名下载附件
1486628132116129.jpg

猛一看上去，这是能达到效果，但是我相信绝没有人会真正喜欢这个做法，因为除了在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