如何利用Excel 的vba实现如下累加功能？

工作表事件，A1、B1单元格，代码如下： Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "A1" Then Range("B1").Value = Range("B1").Value + Target.Value End If End Sub