如果无块 if 结束，但如果语句已关闭

Question

我在 vba 2013 代码中收到一个神秘的"结束如果没有块 If"错误。对出了什么问题有什么见解吗？

我得到两个"结束如果"的错误。如果我将它们注释掉，它会在任何一个"If"块的第二行向我抛出 424 错误。

代码(在此工作簿中(：

Sub TryAgain()
Dim ran As Range
Dim strt As Range
Dim X As Long
Application.ScreenUpdating = False
Set strt = Sheet3.Range("A2")
Set ran = Sheet3.Range(strt, strt.End(xlDown))
n = 1
For Each blah In ran:
    cause = blah.Offset(0, 11)
    X = 0
    c = 0
    Do Until X = n:
        citem = Sheet4.Cells(1, 1).Offset(X, 0)
        If cause.Value = citem.Value Then:
            citem.Offset(0, 1).Value = citem.Offset(0, 1).Value + 1
            c = c + 1
        End If
        X = X + 1
    Loop
    If c = 0 Then:
        bernerner = Sheet4.Cells(1, 1).Offset(X, 0)
        bernerner.Offset(1, 0).Value = cause.Value
        bernerner.Offset(1, 1).Value = bernerner.Offset(1, 1).Value + 1
        n = n + 1
    End If
Next blah
Application.ScreenUpdating = True
End Sub

Answer 1

我认为你不需要在 VBA 中:。

对于 、 while 和 If 这些都不需要在最后:。