你遇到的Next without For错误，核心原因是第一个If语句缺少对应的End If，导致代码结构完全错乱，编译器没法正确识别For循环的范围。咱们一步步来解决：

问题根源分析 #

你的代码里，外层的If mhr <= allowed And count <= allowed Then...Else...块，写完内部嵌套的If Else后直接跳到了Next x,y，没有闭合外层的If。这种结构混乱会让编译器误以为For循环的边界不清晰，从而抛出错误。

修正后的完整代码 #

我帮你调整了结构，同时优化了变量声明（原声明里只有leftover是Integer，其他变量默认是Variant，容易出问题）：

Sub lol_function()
    ' 给每个变量明确声明类型，避免默认Variant带来的意外
    Dim x As Integer, y As Integer, count As Integer, i As Integer
    Dim mhr As Integer, z As Integer, allowed As Integer, leftover As Integer
    
    For y = 13 To 210
        For x = 6 To 1000 Step 8
            allowed = 50 * Cells(x, 8)
            mhr = Cells(x, 7)
            count = count + mhr
            
            If mhr <= allowed And count <= allowed Then
                Cells(x, y).Value = mhr
            Else
                Cells(x, y).Value = allowed + mhr - count
                y = y + 1
                leftover = count - allowed
                
                ' 内部嵌套的If Else分支
                If leftover <= allowed Then
                    Cells(x, y).Value = leftover
                    count = leftover
                Else
                    Cells(x, y).Value = allowed
                    leftover = mhr - allowed
                    y = y + 1
                End If ' 闭合内部的If语句
                
            End If ' 必须加上这行，闭合外层的If语句
            
        Next x
    Next y ' 建议分开写Next，比Next x,y更清晰，避免层级混淆
End Sub

关键修正点 #

1. 补全外层If的End If：这是解决Next without For错误的核心，确保每个If都有对应的End If，代码结构层级清晰。
2. 优化变量声明：VBA里如果在一行声明多个变量，每个变量都要单独指定类型，否则默认是Variant类型，可能导致计算错误。
3. 拆分Next语句：把Next x,y拆成Next x和Next y，能更直观地看出循环的嵌套层级，降低出错概率。

关于Else内创建分支的其他方法 #

除了嵌套If Else，你也可以用Select Case语句来处理多分支逻辑，但如果只是简单的二元分支，嵌套If Else是最直接的写法，只要保证结构闭合就没问题。

内容的提问来源于stack exchange，提问作者San