Excel累積が規定数を超えたらまたゼロから累積
マクロに関してご相談です。
A列に数値が入っています。1000行ほどあります。
それらの数値を上から順にA1+A2+…と加算していき,500以上になったらその行のB列にその合計を記入し,一旦ゼロにリセットし次のA列の行(添付の図ではA6)からまた加算を始め,500になったらその行のB列に合計を記入し…ということを,A列の数値が終わるまで繰り返す,という作業を行いたいと思います。
以前他の方の質問で下記の回答が掲載されていました。
VBAでの一例です。
データは1行目からあるとします。
Sub Sample1()
Dim i As Long, myVal1, myVal2
Range("B:B").ClearContents
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
myVal1 = myVal1 + Cells(i, "A")
myVal2 = myVal1 + Cells(i + 1, "A")
If myVal1 <= 500 And myVal2 > 500 Then
If 500 - myVal1 <= myVal2 - 500 Then
Cells(i, "B") = myVal1
Else
Cells(i + 1, "B") = myVal2
i = i + 1
End If
myVal1 = 0
End If
Next i
End Sub
この方の質問の場合、合計数がちょうど500になることはまれなので,近似のセルをとるようにするという条件がありました。
今回はこの近似の条件は不要で500を超えたら、ゼロから累積するようにしたいですが、マクロをどのように修正したらよいでしょうか。
何かしらのヒントでもいただければと存じます。
よろしくお願いいたします。
お礼
bin-chanさま 早速のご回答ありがとうございます。 やっぱり無理なんですね、仕事で「出来たら便利だなー」と思い質問させていただいたのですが。。 代案まで、ほんとにありがとうございました☆