嵌套for循环错误VBA答案

【问题标题】：nested for loop error VBA嵌套for循环错误VBA
【发布时间】：2012-10-10 11:17:04
【问题描述】：

如图所示，我做了一个嵌套的 For 循环：

For i = 1 To 14
Set curCell_a = Worksheets("Sheet1").Cells(i, 6)    

If curCell_a.Value = 100 Then
Set curCell_b = curCell_a.Offset(3, -1)
cRow = curCell_b.Row     

For j = cRow To 15
Set curCell_c = Worksheets("Sheet1").Cells(cRow, 5)
While curCell_c.Font.Bold = False
MsgBox (curCell_c.Value)
End

Next j    
End If    
Next i

但我不断收到错误Compile error: Next without For

我很确定我将Next j, End If, and Next i 按逻辑顺序排列...有人可以帮我吗？非常感谢！

【问题讨论】：

标签： vba loops for-loop nested

【解决方案1】：

我认为问题在于End 语句：它应该是Wend（While-End）。

For i = 1 To 14

    Set curCell_a = Worksheets("Sheet1").Cells(i, 6)

    If curCell_a.Value = 100 Then

        Set curCell_b = curCell_a.Offset(3, -1)
        cRow = curCell_b.Row

        For j = cRow To 15
            Set curCell_c = Worksheets("Sheet1").Cells(cRow, 5)
            While curCell_c.Font.Bold = False
                MsgBox (curCell_c.Value)
            Wend
        Next j

    End If

Next i

见http://office.microsoft.com/en-us/excel-help/HV080557576.aspx

【讨论】：

【解决方案2】：

while 块需要以 Wend 结束，而不是 End。编译器没有看到该块的结尾。

【讨论】：