无效的下一个控制变量引用 ERROR

Posted 2023-02-25

【中文标题】无效的下一个控制变量引用 ERROR

【英文标题】：Invalid Next control variable reference ERROR

【发布时间】：2016-10-13 08:42:47

【问题描述】：

我正在编写代码，但出现 Invalid Next control variable reference 错误，我不知道为什么。这是我的代码：

【参考方案1】：

你的 i 和 j 变量是错误的，你需要确保正确的变量带有正确的缩进。希望这会有所帮助！

Sub Network()

Dim Net(1 To 8) As Double
Dim Total(1 To 8) As Double
Dim i As Integer


For i = 1 To 8
    For j = 1 To 5

        Net(j) = Worksheets("Summary").Cells((i * 7) + 12, 9).Value

    Next j
Next i



For j = 1 To 5

    Total(j) = WorksheetFunction.Sum(Net(j))

Next j

For j = 1 To 5

    Worksheets("Summary").Cells(73, 8 + j) = Total(j)

Next j


End Sub