循環VBA擅長

Question

Sub Correction() 

Dim i As Integer 

For Sex = 1 To 2 
For Age = 0 To 100 

Range("Test1") = Sex 
Range("Test2") = Age 

For i = 4 To 145 

Sheets("Input").Cells(i, 10).Copy 
Range("Amount").PasteSpecial Paste:=xlValues 

If Range("Negative") = 0 Then 

Sheets("Input").Cells(i, 13).Copy 
Sheets("Input").Cells(Age + 4, 14).PasteSpecial Paste:=xlValues 

End If 


Next 
Next 
Next 


End Sub 

當我嘗試運行宏，對於Sex = 1，Age = 0，假設宏後發現i = 10使"Negative" = 0，宏仍繼續到下一個我。但是我想讓宏在找到特定年齡的"Negative" = 0後繼續下一個Age。

請好心幫我解決這個宏

Answer 1

編輯 OP的澄清

Option Explicit 

Sub Correction() 

Dim i As Integer, Sex As Integer, Age As Integer 

If Cells(Age + 4, 12) > 0 Then 

    For Sex = 1 To 2 
     For Age = 0 To 100 

      Range("Test1") = Sex 
      Range("Test2") = Age 

      For i = 4 To 145 

       Sheets("Input").Cells(i, 10).Copy 
       Range("Amount").PasteSpecial Paste:=xlValues 

       If Range("Negative") = 0 Then 

        Sheets("Input").Cells(i, 13).Copy 
        Sheets("Input").Cells(Age + 4, 14).PasteSpecial Paste:=xlValues 

        Exit For '<== this will have you exit the current for loop 

       End If 

      Next i 

     Next Age 
    Nextsex 

End If 

End Sub 

我建議完全限定使用範圍之後。由於，因爲它現在是：

• Cells(Age + 4, 12)，Range("Test1")，Range("Test2")，Range("Amount")，Range("Negative")都指的是當前的活動片，這可能不是所感興趣

• Sheets("Input").Cells(i, 10)之一，Sheets("Input").Cells(Age + 4, 14)所指到屬於當前活動工作簿的名爲「輸入」的工作表的單元格

也許上面的內容實際上爲你工作，但它不會是一個強大的，也不容易維護的解決方案