Question

我得到一个神秘的＆＃39;结束如果没有阻止如果＆＃39;我的vba 2013代码中的错误。对于出了什么问题的任何见解？

我得到的错误是“结束如果”。如果我将它们评论出来，它会在我的第二行中引发424错误，如果＆＃39; If＆＃39;块。

代码（在ThisWorkbook中）：

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中不需要:。

For，While和If这些都不需要:。

尽管if语句已关闭，但如果没有阻止则结束

1 个答案: