双空白与空白

所以，我有这样的代码，如果单元格变成空白，它将从i=1移动到i=2并基本上重置jvariables，但后来我意识到循环的variablesi继续，即使在10之后。我的问题：是否有办法让它移动到下一个ivariables，同时重置jvariables？ 我注意到jvariables结束，最后一个单元格必须有一个非零值。

 For i = 1 to 10 For j = 9 To 29 Step 2 If wkst.Cells(i, j) = "" Then i=i+1 j=9 Else End If Dest.Cells(i, j) = wkst.Cells(i, j) - wkst.Cells(i, j - 2) Next i Next 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 for j 。
另外，variables在For Next Loop自动增加，所以你不需要这个部分。
这是你想要的吗？ HTH。

Answer 2

用[next j]replace[next i] [next j] 。

j嵌套在i循环中，所以你不能在嵌套之外“下一个” j 。