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 循环应该写成：

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)...）现在，它将使用当前活动工作表的范围。因此，除非这是您的意图，否则最好是明确的。