Double For-Next with blanks

Question

所以，我有这个代码，如果单元格变成空白，它将从i=1移动到i=2并基本上重置j变量，但后来我意识到{{{ 1}}变量即使在10之后仍然继续。我的问题：在重置i变量时，有没有办法让它移动到下一个i变量？我注意到j变量要结束，最后一个单元格必须有一个非零值。

j

Answer 1

你只需要这样的Exit For：

For i = 1 To 10
    For j = 9 To 29 Step 2
        If wkst.Cells(i, j) = "" Then Exit For
        Dest.Cells(i, j) = wkst.Cells(i, j) - wkst.Cells(i, j - 2)
    Next j
Next i

当遇到空白单元格时，上面的代码将退出For Next Loop j。{ 此外，变量在For Next Loop中自动递增，因此您不需要该部分。这是你正在尝试的吗？ HTH。

Answer 2

将[next i]替换为[next j]。

j嵌套在i循环中，因此您无法＆＃39;＃34;下一个＆＃34; j在它的筑巢之外。