如何让EXCEL单元格实现数字累加
需要使用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。