Question

我试图在excel中实现嵌套的FOR循环。然后内部循环似乎没有在代码中执行。错误是否合成？这里发生了什么？

Sub Statistics()
    Dim cc As Integer
    Dim i As Integer

    i = 4
    cc = 0
    For cc = 0 To 4
        For i = 4 To -4
            If Sheets("Significance").Cells(4 + cc, 13 - i) = 1 Then Sheets("Output Database").Cells(8 + currevent, 7 + cc) = i
        Next i
    Next cc

        'Rates
    i = 4
    cc = 0
    For cc = 0 To 4
        For i = 4 To -4
            If Sheets("Significance").Cells(14 + cc, 13 - i) = 1 Then Sheets("Output Database").Cells(8 + currevent, 23 + cc) = i
        Next i
    Next cc    
End Sub

Answer 1

引用i变量的循环需要指定i正在减少：

For i = 4 To -4 Step -1

VBA中嵌套的FOR循环

1 个答案: