накопительный итог в excel

Ответ от Зибин[гуру]
это называется - накопительный итог...
в Excel исп. простой макрос -
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("A2").Value = Range("A2").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub
Адреса ячеек А1 и A2, естественно, можно заменить на свои.