excel如何求和后删除数值后结果数不变再次相加时原结果数累计相

比如：
A1=B1 C1 比如相加后A1=50
把B1和C1里面的数清空后
A1还是等于50
然后在次在B1和C1里面输入数据
比如输入B1为20 C1为10
然后A1里面的数等于80
删除B1和C1后 A1还是等于80
以此类推这样的要求还如何写公式函数等在线求高手指点迷津
需要A列：An=Bn Cn , D列：Dn=En Fn 请问这个VBA代码如何编写高手们谁会麻烦给说详细点好吗谢谢啦

请问大家，谁能帮帮忙修改修改，有个人是这样弄的，但是A/D两列同时进行，貌似不可以，请修改。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
[A1] =[A1]+ [B1] + [C1]
End If
End Sub

谁会呀，在线等

在线跪求，请大神帮忙把编写的程序写上，谢谢大神了。

求大神直接写编码程序，我作为小白，真的不懂

没人吗？

在线等大神写代码，期待回复。

谁能够写个程序呀

汇总的数据都删了，会导致你如果操作错误无法挽回也找不到哪输错了，还不能撤销。这种程序其实很危险的，节省几个单元格没有必要，不如临时加个工作表算。

复制粘贴选择只粘贴数值不就可以了。如果编程的话
sub ThisAdd()
Dim i As Long
i=2 '或者其他开始行
Do While cells(i,2)<>""
cells(i,1)=cells(i,2)+cells(i,3)
Loop
End Sub
手机纯手打，所以没测试。应该不会有错。

Public 行一 As Long
Public 行二 As Long
Public 列一 As Long
Public 列二 As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim 变量 As Long, 变量2 As Long, 参数一 As Long, 参数二 As Long, i As Byte
行二 = Target.Row
列二 = Target.Column
变量 = 行一
变量2 = 列一
If 变量2 = 2 Or 变量2 = 3 Or 变量2 = 5 Or 变量2 = 6 Then
If 变量2 = 2 Or 变量2 = 3 Then
i = 0
Else
i = 3
End If
参数一 = Cells(变量, 2 + i)
参数二 = Cells(变量, 3 + i)
If 参数一 <> 0 And 参数二 <> 0 Then
Cells(变量, 1 + i) = Cells(变量, 1 + i) + 参数一 + 参数二
Cells(变量, 2 + i).ClearContents
Cells(变量, 3 + i).ClearContents
行一 = Target.Row
列一 = Target.Column
End If
End If
行一 = 行二
列一 = 列二
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

16回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六

excel如何求和后删除数值后结果数不变 再次相加时原结果数累计相

扫二维码下载贴吧客户端

excel如何求和后删除数值后结果数不变再次相加时原结果数累计相