直到Do循环嵌套在无法在excel VBA中编译的do while循环中

Question

The code doesn't compile and shows a fault in the Do until loop. It says that there is a loop with out a do. There is more code the this and that works fine and i have Option Explicit in top of the module. The fault marker is tagging the 2 to last Loop. What am i missing?

I've tried to put the code in a separate sub i've tried

    intLastrowData = wbold.Worksheets(OldSheetName).Cells(Rows.Count, 1).End(xlUp).Row
    intLastrowNew = WBnew.Worksheets(AktivtBlad).Cells(Rows.Count, 1).End(xlUp).Row
    i = 3
    Do While i <= intLastrowNew
        strValueA = WBnew.Cells(i, intData1).Value
        strValueB = WBnew.Cells(i, intData2).Value
        j = 2
        Do Until strValueA = wbold.Worksheets(OldSheetName).Cells(j, 1).Value
            If Not wbold.Worksheets(OldSheetName).Cells(j, 1).Value = "" Then
                If strValueA = wbold.Worksheets(OldSheetName).Cells(j, 1).Value Then
                    If strValueB = wbold.Worksheets(OldSheetName).Cells(j, 2).Value Then
                        wbold.Worksheets(OldSheetName).Range(Cells(j, 4), Cells(j, 18)).Copy
                        WBnew.Worksheets(AktivtBlad).Range(Cells(i, intData3)).Paste
                        Exit Do
                    End
                End
            End
            j = j + 1
            If intLastrowData > j - 2 Then
                Exit Do
            End
        Loop
        i = i + 1
    Loop

I expect it to compare the strValueA and strValueA with data from wbold.Worksheets(OldSheetName) and if it matches to copy data from wbold and pase it in WBnew. But it doesn't compile the the inner Do until Loop.

Answer 1

这很简单： End If ，而不是End 。