在工作表标签上点右键，查看代码，粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$B$2" Then [a2] = [a2] + [b2]End IfEnd Sub
2. 效果如下图所示：
代码的事件可以实现，但不建议这样用！！！！！！
