Question

  Do Until Not (ActiveCell.Offset(j, -2).value = ActiveCell.Offset(j - 1, -2).value)
      kwota = kwota + ActiveCell.Offset(j, -1).value
      j = j - 1
  Loop

当条件为假时，它将进入下一个循环，但是当它为真时它会停止，我必须按ctrl + break，为什么？

Answer 1

If ActiveCell.Offset(0, -2).value = ActiveCell.Offset(-1, -2).value Then
      ActiveCell.Offset(0, 8).value = ActiveCell.Offset(-1, 8).value
End If

这是我的问题的解决方案，它运作良好：）

vba做循环 - 我不知道它为什么停止

1 个答案: