VBA遍历Excel列漏判单元格，邮件发送数量不符问题求助

问题根源 #

代码中处理空单元格时手动执行x = x + 1，但For循环本身会自动让x递增1，导致跳过下一个单元格。比如当x=2是空单元格时，手动把x改成3，Next语句又让x变成4，直接跳过了x=3的单元格，这就是漏判的核心原因。

此外代码还有两处可优化点：

• 无需将日期类型转成Long，直接用Date类型计算差值更简洁
• Outlook应用实例无需在循环内重复创建，放在循环外更高效

修复后的完整代码 #

Private Sub Workbook_Open()
    Dim myApp As Outlook.Application, mymail As Outlook.MailItem
    Dim cellDate As Date
    Dim x As Long
    Dim lastrow As Long
    
    ' 若以J列（第10列）数据行数为准，替换为Cells(Rows.Count, 10).End(xlUp).Row
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 提前初始化Outlook实例，避免循环内重复创建
    Set myApp = New Outlook.Application
    
    For x = 2 To lastrow
        ' 先判断单元格非空且为日期类型，避免类型错误
        If Not IsEmpty(Cells(x, 10).Value) And IsDate(Cells(x, 10).Value) Then
            cellDate = Cells(x, 10).Value
            ' 直接计算当前日期与单元格日期的差值
            If Date - cellDate >= 7 Then
                Set mymail = myApp.CreateItem(olMailItem)
                With mymail
                    .To = "examlemail@mail"
                    .Subject = "Test"
                    .Body = "Body Code"
                    .Send
                End With
                ' 标记符合条件的单元格为红色
                Cells(x, 10).Font.Color = RGB(255, 0, 0)
            End If
        End If
        ' 空单元格无需额外处理，循环自动推进x
    Next x
    
    ' 释放对象资源
    Set mymail = Nothing
    Set myApp = Nothing
End Sub

关键优化说明 #

• 移除手动递增x的逻辑，让For循环自动处理遍历顺序，避免漏判
• 增加IsDate判断，防止单元格内容非日期时触发运行错误
• 将Outlook实例创建移到循环外，减少系统资源消耗
• 若遍历范围应以J列数据行数为准，修改lastrow的计算方式，确保遍历到所有目标单元格

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