Question

我正在尝试自动化错误报告。如果其中一个条件成立，我将发送一封包含结果的电子邮件。这是迄今为止的代码：

Sub EmailFRSErrors()
Dim SrchRng As Range, cel As Range
Set SrchRng = Range("A2:A5000")

For Each cel In SrchRng
 If InStr(1, cel.Value, "22") > 0 Or InStr(1, cel.Value, "26") > 0 Or InStr (1, cel.Value, "44") > 0 Or InStr(1, cel.Value, "46") > 0 Then
 OpenOutlookEmail
End If
Next
End Sub

我的问题是，如果有两个以上的错误，它会为每个错误运行一次OpenOutlookEmail宏。我希望它运行一次是否存在1个错误或10.它正在运行的宏将复制范围并将所有错误粘贴到outlook中并将其发送出去。我只需要发送一封包含所有错误的电子邮件。

谢谢！

Answer 1

与上述评论一样，您只需将6 10 28 36 55添加到Exit Sub语句中，如下所示：

If

VBA Excel基于多个条件运行宏

1 个答案: