Excel 2007中的VBA不會執行嵌套for循環

Question

我已經編寫了嵌套的For循環，即使條件滿足，也不會執行For循環的代碼。我試着評論最外面的For循環，但內循環也不起作用。 我在Excel工作2007

Sub CalcAll() 

Dim a As Integer 
a = 10 
Dim b As Integer 
b = 10 

For a = 10 To a = (Range("B" & Rows.Count).End(xlUp).Row) Step 1 

    For b = 10 To b = (Worksheets("DistanceLookupTable").Cells(2, Sheet1.Columns.Count).End(xlToLeft).Column) Step 1 

     If IsEmpty(Cells(a, i).Value) Then 
      Exit Sub 
     Else 
      'Lots of code reading values from the worksheet and printing 
      'calculated values to the worksheet 
     End If 
    Next b 
Next a 
End Sub 

感謝您的幫助

Answer 1

你的循環應該寫成：

For a = 10 To XXX 

不是：

For a = 10 To a = XXX 

Answer 2

試試這個：

Dim a As Integer 
'a = 10 'Unnecessary to assign value here, as you assign the starting value in the For loop 
Dim b As Integer 
'b = 10 'Again, this line not necessary 

For a = 10 To Range("B" & Rows.Count).End(xlUp).Row Step 1 

    For b = 10 To Worksheets("DistanceLookupTable").Cells(2, Sheet1.Columns.Count).End(xlToLeft).Column Step 1 

     If IsEmpty(Cells(a, i).Value) Then '<- do you mean 'b' instead of 'i'? I don't see 'i' assigned anywhere... 
     Exit Sub 
     Else 
     'Lots of code reading values from the worksheet and printing 
     'calculated values to the worksheet 
     End If 
    Next b 
Next a 

而在不相關的說明中，您可能會考慮在第一個for循環中完全限定範圍（Worksheets("worksheetName").Range("B" & Rows.Count)...而不是Range("B" & Rows.Count)...）。現在，它將使用當前活動工作表的範圍。所以除非你的意圖是這樣，否則最好是明確的。