执行直到循环以获取大于某个数字的单元格的值

Question

我希望代码读取 'vResults(1, i)' 的值，如果它大于 21，我希望它将 'vInputs(5, i)' 的值增加 1 并继续这样做直到 'vResults(1, i)' 大于 21。

不会给出任何错误，但 Excel 会崩溃。

Sub CreateTestResultTableV2()
    Application.ScreenUpdating = False 'helps the code run faster

    Dim vInputs, vResults()
    Dim c As Integer, i As Integer

    'create INPUTS 
    c = Range("b5").End(xlToRight).Column
    vInputs = Range("b5", Cells(9, c))
    'determine last value in the column
    c = UBound(vInputs, 2)

    'create RESULTS 
    ReDim vResults(1 To 3, 1 To c)

    For i = 1 To c
        If vInputs(1, i) > 22 Then
            'set values
            Range("j16") = vInputs(1, i)
            Range("n12") = vInputs(3, i)
            Range("r14") = vInputs(5, i)

            'copy output values into RESULTS 
            vResults(1, i) = Range("h41")
            vResults(2, i) = Range("k41")
            vResults(3, i) = Range("z14")

            Do Until vResults(1, i) > 21
                vInputs(5, i).Value = vInputs(5, i).Value + 1
            Loop
        End If
    Next i

    Range("c47").Resize(3, c) = vResults
    Application.ScreenUpdating = True
End Sub

Answer 1

do until 循环重复其指令，直到测试条件变为true。在你的情况下，你的情况永远不会改变：

Do Until vResults(1, i) > 21
    vInputs(5, i).Value = vInputs(5, i).Value + 1
Loop

您将进入循环直到vResults(1, i) 大于 21，但由于值永远不会改变，循环永远不会结束（又名：无限循环）。 Windows 最终会说 excel 没有响应，并会询问您是否要结束进程以退出循环，这可能看起来像应用程序已崩溃。

要么更改vResults(1, i) 的值，要么更改条件以检查循环中会更改的其他内容（可能是vInputs(5, i)）。