VBA 中的语法错误

Question

我不断收到错误（没有 if 或循环没有 do），我真的不知道为什么......有人可以帮忙吗？！谢谢！

Do Until (Range("I4").Value = 0)

    For i = 2 To lLastrow

                If Range("G" & i).Value = 0 Then
                    i = i + 1

                ElseIf Range("G" & i).Value < 0 Then
                      Do Until (Range("G" & i).Value = 0)
                      For j = 0 To i
                         If Range("F" & i - j).Value < 0 Then
                               Range("F" & i - j).Value = Range("F" & i - j).Value + 1
                              Else: j = j + 1
                              End If
                             Application.Calculate
                        Loop
                    ElseIf Range("G" & i).Value > 0 Then
                        Do Until (Range("G" & i).Value = 0)
                            For k = 0 To i
                             If Range("F" & i - k).Value > 0 Then
                              Range("F" & i - k).Value = Range("F" & i - k).Value - 1
                                   Else: k = k + 1
                                   End If
                               Application.Calculate
                        Loop
                End If


            Application.Calculate
Loop

Answer 1

您缺少 Next 声明为所有您 Forloops

试试下面的代码

Do Until (Range("I4").Value = 0)

    For i = 2 To lLastrow
      If Range("G" & i).Value = 0 Then
        i = i + 1
      ElseIf Range("G" & i).Value < 0 Then
        Do Until (Range("G" & i).Value = 0)
           For j = 0 To i
             If Range("F" & i - j).Value < 0 Then
                Range("F" & i - j).Value = Range("F" & i - j).Value + 1
             Else
                j = j + 1
             End If
             Application.Calculate
             Next'You missed this
         Loop
       ElseIf Range("G" & i).Value > 0 Then
          Do Until (Range("G" & i).Value = 0)
            For k = 0 To i
              If Range("F" & i - k).Value > 0 Then
                 Range("F" & i - k).Value = Range("F" & i - k).Value - 1
              Else
                k = k + 1
            End If
            Application.Calculate
            Next 'You missed this
          Loop
       End If

        Application.Calculate
    Next 'You missed this
Loop

Answer 2

尝试用您拥有的代码替换下面的代码。您的每个 For 循环都缺少 Next。 Do 和 Loop 一起出现，同样For 和 Next 一起出现（它们构成了循环的基础）。

这是代码，我也清理了它以便更容易理解。

Do Until (Range("I4").Value = 0)
    For i = 2 To lLastrow
        If Range("G" & i).Value = 0 Then
            i = i + 1
        ElseIf Range("G" & i).Value < 0 Then
            Do Until (Range("G" & i).Value = 0)
                For j = 0 To i
                    If Range("F" & i - j).Value < 0 Then
                        Range("F" & i - j).Value = Range("F" & i - j).Value + 1
                    Else
                        j = j + 1
                    End If
                    Application.Calculate
                Next j
            Loop
        ElseIf Range("G" & i).Value > 0 Then
            Do Until (Range("G" & i).Value = 0)
                For k = 0 To i
                    If Range("F" & i - k).Value > 0 Then
                        Range("F" & i - k).Value = Range("F" & i - k).Value - 1
                    Else
                        k = k + 1
                    End If
                    Application.Calculate
                Next k
            Loop
        End If
    Next i
    Application.Calculate
Loop

Answer 3

这就是为什么正确和一致缩进很重要：

Do Until (Range("I4").Value = 0)
|   For i = 2 To lLastrow
|   |   If Range("G" & i).Value = 0 Then
|   |   |   i = i + 1
|   |   ElseIf Range("G" & i).Value < 0 Then
|   |   |   Do Until (Range("G" & i).Value = 0)
|   |   |   |   For j = 0 To i
|   |   |   |   |   If Range("F" & i - j).Value < 0 Then
|   |   |   |   |   |   Range("F" & i - j).Value = Range("F" & i - j).Value + 1
|   |   |   |   |   Else
|   |   |   |   |   |   j = j + 1
|   |   |   |   |   End If
|   |   |   |   |   Application.Calculate
|   |   |   |   Next '<<<<<<< MISSING!!
|   |   |   Loop
|   |   ElseIf Range("G" & i).Value > 0 Then
|   |   |   Do Until (Range("G" & i).Value = 0)
|   |   |   |   For k = 0 To i
|   |   |   |   |   If Range("F" & i - k).Value > 0 Then
|   |   |   |   |   |   Range("F" & i - k).Value = Range("F" & i - k).Value - 1
|   |   |   |   |   Else
|   |   |   |   |   |   k = k + 1
|   |   |   |   |   End If
|   |   |   |   |   Application.Calculate
|   |   |   |   Next '<<<<<<< MISSING!!
|   |   |   Loop
|   |   End If
|   |   Application.Calculate
|   Next '<<<<<<< MISSING!!
Loop

现在，这里有 6 层嵌套，而且有很多重复。这表明您需要从内部嵌套代码中重构和提取过程，以消除冗余并提高代码的可读性和可维护性（一次修改应该 表示一个地方更改代码）。

如果您的代码按预期工作，我建议您将其（整个过程，甚至整个模块！）交给Code Review 进行清理和改进和巩固您的代码的提示（例如，您可能不'不需要像你那样经常Calculate，而且不合格的Range 调用会隐式引用活动工作表——这可能会导致以后出现意外错误！）。