如果语句满足，则在2个嵌套循环中打破内循环

Question

我已经写了下面的代码我想打破m的循环，但是如果（if）语句返回true，我想继续循环我

For i = 7 To lastrow 
    For m = 33 To 37 

     If IsNumeric(mmk.Sheets("FG").Cells(i, m)) = True Then 
      quote(i, m) = mmk.Sheets("FG").Cells(i, m) 
     End If 

     If quote(i, m) <> Empty And quote(i, m) <> 0 And quote(i, m) > 0 Then 
      row(i, m) = i 
     End If 

     row1(i) = row(i, m) 

     If row1(i) <> Empty And row1(i) <> 0 And row1(i) > 0 Then 
      mmk.Sheets("FG").Rows(row1(i)).Select 
      Selection.Copy 
      wrk.Activate 
      wrk.Sheets("Nego").Activate 

      With ActiveSheet 
       last1 = .Cells(.Rows.Count, "A").End(xlUp).row 
      End With 

      wrk.Sheets("Nego").Cells(last1 + 1, 1).Select 
      ActiveSheet.Paste 
      Exit For 
      Next i 
     Else 
      Next m 
      Next i 
     End If 

我要外循环继续，但如果语句变成真正的内环打破，如果最后

问题出在下面的表达式

exit for 
next i 

Answer 1

这是检查的事如果您的退出条件为真，请在正确的地方。 退出内循环应该发生在内循环内。

Sub BreakInnerLoops() 

Dim i As Integer 
Dim j As Integer 
Dim k As Integer 

For i = 1 To 10 
    For j = 1 To 10 
     For k = 1 To 10 
      Debug.Print i & " " & j & " " & k 
      If k = 5 Then Exit For 'Exits k loop. 
     Next k 
     If j = 5 Then Exit For 'Exits j loop. 
    Next j 
    If i = 5 Then Exit For 'Exits i loop. 
Next i 

End Sub 

你的情况：

For i = 7 To lastrow 
    For m = 33 To 37 
     'Some lines here. 
     If row1(i) <> Empty And row1(i) <> 0 And row1(i) > 0 Then 'Exit condition and do stuff. 
      mmk.Sheets("FG").Rows(row1(i)).Select 
      Selection.Copy 
      wrk.Activate 
      wrk.Sheets("Nego").Activate 
      With ActiveSheet 
       last1 = .Cells(.Rows.Count, "A").End(xlUp).row 
      End With 
      wrk.Sheets("Nego").Cells(last1 + 1, 1).Select 
      ActiveSheet.Paste 
      Exit For 
     End If 
    Next m 
Next i 

你也可能需要阅读how to avoid select