我有这张约50,000行的表,我希望Excel能够通过并分配一个数字或字母。Excel VBA循环遍历表和总结值
基本上我试图根据他们的总和大于1,000,000来分组数据。
如果该行中的单元格A小于1,000,000,它将转到下一行并将前一个单元格A合并到当前单元格中,依此类推。这一直持续到所有行的总和> = 1,000,000。当发生这种情况时,一个数字被“分配”(如在行尾输入)。
的样本数据:
这里是我当前的 “伪” 代码:
For x = 2 to lastrow
y = 1
If Range("A" & x).value < 1000000 Then
'I know something needs to be entered here but I don't know what
Do while balance < 1000000
sumbalance = Range("A" & x) + Range("A" & x + 1)
'Until sumbalance >= 1000000 Then Range("A" & x).Offset(0, 2).value = y
Else
Range("A" & x).offset(0, 2).value = y + 1 '(?)
Next x
有人能指出我的方向是正确的?