复制一列，对应列自动累加的咨询

fingerx0609

想要实现K列的数据更新，自动累加体现在C列，C列也随即更新。
现在只能实现手动在K列输入数据，C列自动累加，无法实现直接将数据复制到K列，C列自动更新累加，求各位大神求助。

痛痛痛痛

正确的提问方式：

1、问题说明，表述清晰，表述不清晰，别人没法理解。
2、截图：求解前的数据样式
3、截图：解决后的数据效果
以上三点能让别人看页面就知道自己是否可以处理。

最重要的一点：

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★
★ 4、附件。包括；要处理的数据，问题说明，处理结果示样 ★
★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★

以上四点缺一不可。

这样别人看问题看截图就知道怎么回事，能否回答心中有数，也会有帮助的意愿。

说的不清楚，或者一个附件放上来，很多人看都不想看，除非是版主、网站工作人员把答疑解惑作为自己的工作，时间允许会尽可能回答。

毕竟是你要求助别人，就要尽可能的表述清晰，给查看帖子的人带来便利！

   

fingerx0609

请大神帮忙，重新上传附件并截图。

袁勇

这种问题用VBA处理。

A单元格=A单元格+B单元格

fingerx0609

袁勇 发表于 2019-6-25 14:49
这种问题用VBA处理。

A单元格=A单元格+B单元格

老师好，是用vba啦，但是只能实现手动输入数值，对应列才会自动累加，想实现一整列数据复制过来，对应列自动累加的功能，vba是小白，不太会用。

袁勇

fingerx0609 发表于 2019-6-25 15:22
老师好，是用vba啦，但是只能实现手动输入数值，对应列才会自动累加，想实现一整列数据复制过来，对应列 ...

不用Worksheet_Change事件。

1. Private Sub CommandButton1_Click()
   
2. For i = 3 To 16
   
3.     Cells(i, "c") = Cells(i, "c") + Cells(i, "k")
   
4.     Cells(i, "h") = Cells(i, "h") + Cells(i, "O")
   
5. Next
   
6. End Sub

复制代码

fingerx0609

袁勇 发表于 2019-6-25 15:35
不用Worksheet_Change事件。

谢谢老师，正常运行。