A1中有数值10，再次键入5后如何使A1等于15？

IkeyZheng

A1中有数值10，再次键入5后如何使A1等于15？
相等于累加的效果

pureshadow

除了加辅助列，我想不到更好的办法。

liwen

不是不可能，但这样做有什么意义呢？

Dim aAddress
Dim aStr
Dim ai As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
If aAddress = Target.Address And ai Then
ai = False
Target.FormulaR1C1 = Target.Value + aStr
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
aAddress = Target.Address
aStr = Target.Value
ai = True
End Sub