Excel怎样输入新值后旧值自动填另单元格

1、首先打开Mic筠续师诈rosoft Office Excel 2007，新建文档并保存文件名《Excel怎样输入新值后旧值自动填另单元格.xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。

2、鼠标移到当前工作表标签栏“Sheet1”表（需要在哪表计算在哪表），右键，弹出快捷菜单，如下图。

3、在快捷菜单找到【查看代码】并单击，打开VBE（宏）编辑界面，如下图。

4、在右边代码框中复制下面代码到该框中，如下图：Dim jzPrivate Sub Worksheet_SelectionChang髫潋啜缅e(ByVal Target As Range) '2020-9-12 22:12:29 If Target.Address = "$A$1" Then jz = Target.Value If jz = "" Then jz = 0 End IfEnd SubPrivate Sub Worksheet_Change(ByVal Target As Range) '2020-9-12 22:32:12 If Target.Address = "$A$1" Then Range("A2").Value = jz Range("A3").Value = Range("A1").Value - jz Range("A3").Select End IfEnd Sub

5、以上操作动态过程如下：

6、回到工作表窗口，填写得到问题结果，运行过程如下图。

7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！