如何让EXCEL单元格实现数字累加
发布网友
共1个回答
热心网友
需要使用vba
假设要输入数据的是sheet1，我们利用sheet2作为存放临时数据的工作表。
右击sheet1标签》查看代码
将下面的代码粘贴至右侧窗口即可实现你要的效果。
Private
Sub
Worksheet_Change(ByVal
Target
As
Range)
'Sheets("sheet2").Visible
=
xlSheetVeryHidden
'将sheet2设置为隐藏。若要此句生效，取消语句开始出的'即可。
Application.EnableEvents
=
False
For
Each
c
In
Target.Cells
With
c
.Value
=
Sheets("sheet2").Range(.Address)
+
.Value
Sheets("sheet2").Range(.Address)
=
.Value
End
With
Next
Application.EnableEvents
=
True
End
Sub
BTW：不建议这样累计数字，因为这样做的话误操作将无法进行核对。而且误操作通常都是在不自知的情况下发生的，例如将1000000输成了100000。
