如何设置同一单元格累计输入数字自动相加？

顶

顶

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Count = 1 Then
　If Not Intersect(Target, [A1:E5]) Is Nothing And Target <> "" Then
　　Application.EnableEvents = False
　　a = Target
　　Application.Undo
　　b = Target
　　Target = a + b
　　Application.EnableEvents = True
　End If
End If
End Sub
上述代码Intersect(Target, [A1:E5]) 中的A1:E5是单元格区域。
sheet名 那里右键-查看代码，粘贴进去。
然后叉掉，就可以用了。

下次打开的时候 点击提示的 启用内容。