VBA宏MAP模块出现Next Without For错误排查求助

常见错误原因 #

• If/ElseIf 结构未正确闭合：VBA要求每个If-Then或ElseIf必须用End If收尾，若遗漏或嵌套层级错乱，编译器会误判For循环的范围，导致Next找不到对应的For。
• 语法或注释解析异常：代码中未闭合的引号、错误的注释格式，会让编译器错误识别代码结构，打乱For循环的逻辑边界。
• 循环变量拼写/作用域问题：虽定义了For i，但循环内若重新声明i或拼写错误（如Next I虽VBA不区分大小写，但变量名不一致仍会出问题），也可能触发错误（此类情况较少见）。

修复示例（结合你的业务需求） #

假设你的错误代码因遗漏End If导致结构错乱，修复后的代码如下：

Sub GenerateMAF_MAM_Array()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim dataArr() As Variant
    
    Set ws = ThisWorkbook.Sheets("目标工作表") '替换为你的工作表名
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '假设检测A列
    ReDim dataArr(1 To lastRow, 1 To 1) '初始化数据数组
    
    For i = 1 To lastRow
        If ws.Cells(i, "A").Value = "MAF" Then
            'MAF对应的操作，示例：赋值为指定内容
            dataArr(i, 1) = "MAF_处理结果"
        ElseIf ws.Cells(i, "A").Value = "MAM" Then
            'MAM对应的操作，示例：赋值为指定内容
            dataArr(i, 1) = "MAM_处理结果"
        Else
            '可选：处理非MAF/MAM的情况
            dataArr(i, 1) = "无匹配值"
        End If '必须闭合If结构
    Next i
    
    '示例：将数组写入B列
    ws.Range("B1:B" & lastRow).Value = dataArr
End Sub

排查步骤 #

1. 逐行检查所有If-Then-ElseIf块，确保每个If都有对应的End If，嵌套结构需层级清晰（内部If需在外部If的End If前闭合）。
2. 检查代码中的引号、逗号等符号是否完全闭合，注释中避免使用未转义的引号。
3. 临时注释掉部分代码，逐步缩小范围，定位导致结构错乱的代码段。

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