如何解决VBA循环错误及自动化脚本中的调试报错问题？

看起来你已经用Indirect函数处理了单元格的错误值，但VBA层面的运行时错误还需要额外的校验和错误捕获机制来解决。下面给你一套具体的解决方案，既能避免调试错误，又能在未找到有效邮箱时自动跳过当前项：

1. 先给邮箱加有效性校验 #

不管单元格里的内容是不是空值，先做个格式校验——无效的邮箱格式直接跳过，避免后续发送邮件时触发错误。可以写个辅助函数来做这件事：

Function IsValidEmail(email As String) As Boolean
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    ' 匹配标准邮箱格式的正则表达式
    regex.Pattern = "^[\w-\.]+@([\w-]+\.)+[\w-]{2,4}$"
    IsValidEmail = regex.Test(email)
End Function

2. 在核心逻辑里加入错误捕获与跳过机制 #

把提取邮箱、发送邮件的逻辑包裹在错误处理块里，同时增加空值/无效邮箱的判断，直接跳转到下一项处理。下面是完整的示例代码：

Sub AutoSendSupplierEmails()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    Dim targetEmail As String
    Dim outlookApp As Object
    Dim outlookMail As Object
    
    ' 替换成你的目标工作表名称
    Set ws = ThisWorkbook.Worksheets("供应商列表")
    ' 假设邮箱数据在A列，获取最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 初始化Outlook对象，捕获未启动Outlook的错误
    On Error Resume Next
    Set outlookApp = GetObject(, "Outlook.Application")
    If Err.Number <> 0 Then
        Set outlookApp = CreateObject("Outlook.Application")
    End If
    On Error GoTo 0
    
    ' 从第2行开始遍历（假设第1行是表头）
    For currentRow = 2 To lastRow
        ' 用Indirect提取邮箱，替换成你的实际单元格引用逻辑
        targetEmail = ws.Evaluate("=Indirect(""A"" & " & currentRow & ")")
        
        ' 第一步：判断空值或无效邮箱，直接跳过
        If Trim(targetEmail) = "" Or Not IsValidEmail(targetEmail) Then
            Debug.Print "行" & currentRow & "：无有效邮箱，跳过处理"
            GoTo NextSupplier
        End If
        
        ' 第二步：尝试发送邮件，捕获发送过程中的错误
        On Error Resume Next
        Set outlookMail = outlookApp.CreateItem(0)
        With outlookMail
            .To = targetEmail
            .Subject = "供应商合作通知"
            .Body = "您好，这是自动发送的合作通知邮件..."
            ' 如果需要附件可以打开下面的注释
            '.Attachments.Add "C:\你的附件路径\文件.pdf"
            .Send ' 测试阶段可以换成.Display，手动确认邮件内容
        End With
        
        ' 记录发送失败的错误信息
        If Err.Number <> 0 Then
            Debug.Print "行" & currentRow & "：邮件发送失败，错误信息：" & Err.Description
            Err.Clear ' 清除错误状态，不影响下一项处理
        End If
        On Error GoTo 0
        
NextSupplier:
    Next currentRow
    
    ' 释放对象，避免内存泄漏
    Set outlookMail = Nothing
    Set outlookApp = Nothing
    MsgBox "所有供应商邮件处理完成！"
End Sub

3. 关键细节说明 #

• 空值/无效邮箱处理：通过Trim(targetEmail) = ""过滤空值，再用IsValidEmail验证格式，直接用GoTo跳转到循环的下一项，避免无效内容触发后续错误。
• Outlook初始化容错：先尝试获取已打开的Outlook实例，失败再新建，解决Outlook未运行时的启动错误。
• 发送错误捕获：用On Error Resume Next捕获发送时的异常（比如邮箱不存在、Outlook权限限制等），记录错误后继续处理下一个供应商，不会中断整个脚本。

额外优化建议 #

• 可以把提取邮箱的逻辑单独封装成函数，方便后续修改和调试。
• 调试时用Debug.Print输出的日志，能帮你快速定位哪一行出了问题。
• 批量处理时可以在状态栏显示进度，比如Application.StatusBar = "正在处理第" & currentRow & "/" & lastRow & "行"，提升用户体验。

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