各位老师新年好，希望用VBA实现覆盖求和。盼指点盼VBA代码例。

jerry3770

各位老师新年好，希望用VBA实现覆盖求和。盼指点盼VBA代码例。谢谢

jerry3770

补充：遇负数则与其后的单元格值相加，得出的新值（和） 覆盖在负数后的单元格并为负数单元格清0。

蓝桥玄霜

求和的代码：

jerry3770

蓝桥玄霜老师新年好，非常高兴和感谢您能看到并回复我发的贴，拜读过你的字典讲解，并一直当宝贝一样收藏着，无奈还是小白，大部分都还未参透。我接着努力吧。再次谢谢

jerry3770

如图  我只改动了区域   运行时就不成功了   我想请教下 是我哪里动错了吗   

jerry3770

Sub 覆盖求和()
Dim ARR, I&, J&, N
Sheet1.Activate
ARR = [cw99].CurrentRegion '希望从CW99单元格开始把相聆的数放入数组ARR
For J = 75 To UBound(ARR, 2) - 1 '从CW（75列）开始循环到最后一列非空列
For I = 101 To UBound(ARR) '从101行开始循环到最后一行非空行
If Format(ARR(I, J), "0.00") < 0 Then
N = ARR(I, J) + ARR(I, J + 1)
Cells(I, J) = 0: Cells(I, J + 1) = N
End If
Next
Next
End Sub

jerry3770

蓝桥玄霜 发表于 2020-2-3 09:47
求和的代码：

蓝桥玄霜老师新年好，非常高兴和感谢您能看到并回复我发的贴，拜读过你的字典讲解，并一直当宝贝一样收藏着，无奈还是小白，大部分都还未参透。我接着努力吧。再次谢谢!  由于我更改了区域，运行错误，可否再看贴中新描述是否帮我指点迷津