带If判断的For…Next循环出现“Next Without For”编译错误

问题分析 #

• 编译错误直接原因：代码中的If daysSinceCert <= 30 Then语句缺少对应的End If闭合，导致VBA无法识别For循环的完整结构，触发"Next Without For"错误。
• 逻辑错误：daysSinceCert被定义为F列从F2到最后一行的整个范围，直接和数值30比较会导致类型不匹配，应该针对当前循环行的F列单元格单独判断。

修正后的代码 #

Sub CreateCourseCertificates()
    Dim EApp As Object
    Set EApp = CreateObject("Outlook.Application")
    Dim EItem As Object
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取数据最后一行（避免空行导致无效遍历）
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历每一行有效数据
    For i = 2 To lastRow
        ' 判断当前行F列的认证已过天数是否≤30
        If Cells(i, "F").Value <= 30 Then
            Set EItem = EApp.CreateItem(0)
            With EItem
                .To = Cells(i, "C").Value ' 对应原代码中Offset(0,2)，即C列的邮箱地址
                .Subject = "设备认证到期提醒"
                .Body = "您好，您的设备认证已过" & Cells(i, "F").Value & "天，请及时完成重认证。"
                .Display ' 测试阶段用Display预览，正式使用可改为.Send直接发送
            End With
            Set EItem = Nothing ' 及时释放对象，避免内存占用
        End If ' 闭合If判断语句
    Next i
    
    Set EApp = Nothing
End Sub

修改要点说明 #

1. 补充End If闭合If判断，彻底解决编译错误。
2. 改用lastRow获取有效数据的最后一行，避免空行导致的无效循环。
3. 直接通过行号+列标定位单元格，修正原代码中范围遍历的逻辑错误，确保每次判断的是当前行的认证天数。
4. 优化邮件内容，使其更贴合实际提醒场景，同时保留.Display用于测试（正式使用可替换为.Send直接发送邮件）。
5. 及时释放EItem对象，减少内存占用。

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