Question

有人可以解释如何在Do Until循环中添加变量吗？我不能让我的工作。我收到一条错误，上面写着“Next without for”。以下是我到目前为止的情况：

Application.ScreenUpdating = True

Dim i As Long
For i = 5 To 6

Do Until Sheets("Analysis").Range("L1") < 50 And Sheets("Analysis").Range("N1") < 250000 And Sheets("Analysis").Range("AB" & i) > 0.05


Next i


Application.Calculate

Loop

谢谢！

Answer 1

你正在重叠你的循环 - 我把做循环放在 For 循环中：

Dim i As Long
For i = 5 To 6

Do Until Sheets("Analysis").Range("L1") < 50 And Sheets("Analysis").Range("N1") < 250000 And Sheets("Analysis").Range("AB" & i) > 0.05
Application.Calculate

Loop
Next i

在Do Until循环中添加变量

1 个答案: