关于数组累加问题

chj6533

有困难就求助。。前次在论坛发了个年龄段统计问题，看到里面 数组累加很实用。就想扩展运用下，但就发现用不了，想追求完美，请老师们释义一下，谢谢。


这是前期求助的链接
【新提醒】VBA年龄段统计-Excel VBA程序开发-ExcelHome技术论坛 -

9楼

zjzyj

附件供参考

yanglinzi

是这样的吗？

chj6533

zjzyj 发表于 2023-3-24 17:37
附件供参考

你这样讲，我明白道理了

chj6533

yanglinzi 发表于 2023-3-24 17:56
是这样的吗？

讲真，你说的这种和我写的，已注释了的是一致的。2楼讲出了理由 。谢谢你

chj6533

zjzyj 发表于 2023-3-24 17:37
附件供参考

不过  还是有点不明白  你的
            Else
            Brr(i - 1, 1) = Brr(i - 2, 1) + Arr(i, 3)
=号前后的brr内容不一致的。。
我写的另外 一个代码包含这句  If ss > 50 Then arr(dic(s), 4) = arr(dic(s), 4) + 1 =号前后的arr是一致的。是什么原因，能解释下吗？

准提部林

單純累加//不分條件???

Arr = Range("a1").CurrentRegion
For i = 2 To UBound(Arr)
    s = s + Val(Arr(i, 3))
    Arr(i - 1, 1) = s
Next
[d2].Resize(UBound(Arr) - 1, 1) = Arr