如何解决为什么 VBA For Next Loop 计算不正确?{VBA}
我是 VBA 新手 - 尝试使用 VBA 进行简单计算,但无法使其正常工作。任何帮助将不胜感激。 基本上我有一行,结果应该等于前一个结果+当前根据单元格
这就是我的意思
A | B | C | D | |
---|---|---|---|---|
(1)第1行 | 1 | 2 | 3 | 4 |
(2)结果 | 1 | (1+2) | (1+2)+3 | ((1+2)+3)+4 |
我一直在用Next但是没能生成我想看的结果,第一个输出是正确的,但是在第一次计算之后,所有正在进行的计算都不正确
Sub DeltaAllocationToCRSSum()
Range("A2").Value = 1 ' Set starting value for the first cell in the result roll
Dim Column1 As Integer
Dim Column2 As Integer
For Column1 = 1 to 4
For Column2 = 2 To 5
Cells(2,Column2) = Cells(2,Column1)+Cells(1,Column2) 'meaning B2 = A2 + B1 for the first calculation
Next Column2
Next Column1
所以这段代码总是能够让我在第一次计算时得到正确的结果,但连续的结果总是错误的。有人知道是什么问题吗?抱歉,这个问题可能很有基础,但我自己也想不通....谢谢您的帮助
解决方法
你只需要一个 for 循环,试试这个
Sub DeltaAllocationToCRSSum()
Range("A2").Value = 1 ' Set starting value for the first cell in the result roll
Dim Column1 As Integer
For Column1 = 1 To 4
Cells(2,Column1 + 1) = Cells(2,Column1) + Cells(1,Column1 + 1) 'meaning B2 = A2 + B1 for the first calculation
Next Column1
End Sub
,
试试这个
for i = 2 to usedrange.columns.count
if i =2 then
cells(2,i) = cells(2,i).offset(-1,0) ' column a
else
cells(2,i)= cells(2,1).offset(0,-1)+ cells(1,i)
end if
next i
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。