Vba 编译错误：以结束。但问题就在那里

对于我的工作代码，我必须用

EndWith

添加一个新的

。不，我无法再运行它，第二个
EndWith
导致错误。编译错误：以结束。我也试着用

EndWith

做e嵌套的

，但没有成功。有什么想法吗？谢谢你的帮助

这是代码的必需部分：

 With wsSrc
        LastRow = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
        For j = 0 To UBound(SearchValues)
            For i = 2 To LastRow
                If .Cells(i, 1).Value = SearchValues(j) Then

                    wsDest.Range("A" & z).Value = .Range("A" & i).Value
                    wsDest.Range("B" & z).Value = .Range("N" & i).Value
                    wsDest.Range("C" & z).Value = .Range("O" & i).Value
                    wsDest.Range("D" & z).Value = .Range("AM" & i).Value
                    wsDest.Range("G" & z).Value = .Range("AH" & i).Value
                    wsDest.Range("I" & z).Value = .Range("P" & i).Value
                    wsDest.Range("J" & z).Value = .Range("E" & i).Value
                    wsDest.Range("K" & z).Value = .Range("F" & i).Value

                    z = z + 1

                End If
            Next i
        Next j
   End With
    With wsSrc2
        LastRow2 = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            For k = 2 To LastRow2
                If .Cells(i, 1).Value = "724" Then
                    wsDest.Range("B" & z).Value = .Range("N" & k).Value
                    wsDest.Range("C" & z).Value = .Range("O" & k).Value
                    wsDest.Range("D" & z).Value = .Range("AM" & k).Value
                    wsDest.Range("G" & z).Value = .Range("T" & k).Value
                    wsDest.Range("I" & z).Value = .Range("P" & k).Value
                    wsDest.Range("J" & z).Value = .Range("E" & k).Value
                    wsDest.Range("K" & z).Value = .Range("F" & k).Value
                    wsDest.Range("A" & z).Value = "724"
                    z = z + 1
                End If
    End With

循环底部缺少next
在k=2的
逻辑中缺少
next
！有时，错误消息并不总是看起来那样！这个问题几乎是关于同一件事：