Excel VBA IF AND语句错误排查：批量邮件发送功能异常

问题背景 #

我希望在Excel文件中添加一个CommandButton，实现当B列值为"no"时，给A列对应的人员发送邮件。但编写IF AND语句时出现问题，错误代码段为：
If cell.Value Like "?*.?*@?*.?*" And LCase(Cells(cell.Row, "B").Value) = "no" Then
删除And语句后按钮可正常工作，盼求解决。
编辑：已自行解决，正确代码已调整。

问题原因分析 #

你遇到的问题大概率是空单元格或非字符串类型单元格导致的运行时错误：
当B列的单元格为空，或者单元格内容不是字符串时，调用LCase()函数会直接抛出错误，导致整个And条件判断中断，进而让CommandButton的逻辑无法正常执行。而去掉And语句后，跳过了对B列的判断，自然不会触发这个错误。

优化后的正确代码示例 #

可以通过增加空值判断来避免这个问题，下面是两种可行的写法：

写法一：先判断单元格非空

' 遍历A列有内容的单元格（从第2行开始，假设第1行是表头）
For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    ' 先检查B列对应行的单元格不为空
    If Not IsEmpty(Cells(cell.Row, "B")) Then
        ' 再同时判断邮箱格式和B列值为"no"
        If cell.Value Like "?*.?*@?*.?*" And LCase(Cells(cell.Row, "B").Value) = "no" Then
            ' 这里写入你的发送邮件逻辑
            ' 示例：MsgBox "即将发送邮件给：" & cell.Value
        End If
    End If
Next cell

写法二：在And条件中加入长度判断

For Each cell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    ' 同时判断邮箱格式、B列单元格有内容、B列值为"no"
    If cell.Value Like "?*.?*@?*.?*" And Len(Cells(cell.Row, "B").Value) > 0 And LCase(Cells(cell.Row, "B").Value) = "no" Then
        ' 发送邮件逻辑
    End If
Next cell

额外提示 #

• 你的邮箱格式判断"?*.?*@?*.?*"比较基础，要是需要更严谨的邮箱校验，可以考虑用正则表达式
• 测试时可以先加MsgBox弹窗确认条件判断是否正确，再接入实际的邮件发送代码

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