萌新求帮助~关于数值累加统计的问题

有没有vba环境

这种表是实际工作中的吗，真不合理。万一输错了，连错哪里都不知道，无法追溯

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
With ThisWorkbook.ActiveSheet
登记行 = .Cells(Rows.Count, 7).End(3).Row + 1
.Cells(登记行, 7) = Format(Now(), "yyyy/mm/dd hh:mm:ss")
.Cells(登记行, 8) = .Range("A2")
.Cells(登记行, 9) = Application.Sum(.Cells(登记行 - 1, 9)) + .Range("A2")
.Cells(2, 2) = Application.Sum(.Cells(登记行 - 1, 9)) + .Range("A2")
End With
End If
End Sub

逻辑混乱的人才设计这种莫名其妙的录入表

可以实现,但是不建议这么做.
会因误操作得到错误结果且无据可查.
误操作通常是在不自知的情况下发生的,当你输入了很多数据后最终得到一个错误值时,你无法知道自己哪一步做错了.
建议在一列逐行记录每次录入的数据,新数据不要覆盖老数据,最后在需要结果的地方用sum求和 . 公式类似 =sum(a:a)