結束如果/下一個C語句與For循環/ VBA

Question

我有一個相當複雜的For循環與If聲明裏面和另一個For循環裏面。並給予一定的標準（即If InStr(1, q.Value, "Total")）在第二秒內我想結束整個If聲明並轉移到Next C。

我明白，這是像洋蔥一樣分層，可能不是一個簡單的出路。

For Each C In copyRng 

     If IsNumeric(C) And C.Value <> "0" And Len(C) <> 0 And C.Value <> "2017" Then 

      Set rowRange = xSheet.Range(C, C.EntireColumn.Cells(1)) 'set range from cell up to the top cell of the comment/ Fix the 2017 thing 

      For Each q In rowRange 'Loop through that range and find the Account number just above it and set it as rowSrc 
       If InStr(1, q.Value, "C-") And Not ISIN(C, uniqueVal) Then Set rowSrc = q 
       If InStr(1, q.Value, "Total") Then End If 'At this point I want to leave the entire If Statement and move on to the next C 
      Next q 


      Set colSrc = C.EntireRow.Offset(0).Cells(1) 'find alert connected with the number 
      numCol = DestSh.Cells.Find(colSrc.Value, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column 'look for the column in which the same alert is listed 
      numRow = DestSh.Cells.Find(rowSrc.Value, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row 'look for row in which the same account is listed 

      'Set destination 
      Set destRng = DestSh.Cells(numRow, numCol) 

      'Copy to destination Range 
      C.Copy destRng 

     End If 

    Next C 

Answer 1

你需要Exit For，然後在循環後，把剩下的代碼在另一個If塊：

For Each C In copyRng 
    If IsNumeric(C) And C.Value <> "0" And Len(C) <> 0 And C.Value <> "2017" Then 
     Set rowRange = xSheet.Range(C, C.EntireColumn.Cells(1)) 

     For Each q In rowRange 
      If InStr(1, q.Value, "C-") And Not ISIN(C, uniqueVal) Then Set rowSrc = q 
      If InStr(1, q.Value, "Total") Then Exit For ' Exit loop prematurely 
     Next q 
     If q is Nothing Then ' Skip if loop was exited prematurely 
      Set colSrc = C.EntireRow.Offset(0).Cells(1) 
      numCol = DestSh.Cells.Find(colSrc.Value, SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Column 
      numRow = DestSh.Cells.Find(rowSrc.Value, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row 

      Set destRng = DestSh.Cells(numRow, numCol) 
      C.Copy destRng 
     End If 
    End If 
Next C 

Answer 2

刪除Then後的每個下劃線並重寫整個代碼。邏輯被改變。你幾乎沒有按照你認爲的方式去其他地方。

檢查： VBA - How the colon `:` works in VBA code with condition

一般情況下，您的代碼不工作，你認爲它的工作方式。檢查以下內容：

Public Sub TestMe() 

    If 1 = 2 Then _ 
     Debug.Print "I am true - 1=2" 
     Debug.Print "I should be also true" 

    If 2 = 3 Then _ 
     Debug.Print "I am true 2=3" 

End Sub