Vba 当同一行、不同列中的值=J时发送电子邮件

我有以下代码，只要在第22列，V中有一个电子邮件地址，它就会调用函数SendSingleMail

Cells(2, 22).Select

Do Until ActiveCell = ""

    strEmailTo = ActiveCell.Value
    SendSingleMail (strEmailTo)
    ActiveCell.Offset(1, 0).Select

Loop

---

我正在尝试添加第二个循环，它指向第6列F：在这一列中，我用“J”或“N”（是/否）来确定是否必须为每一行发送电子邮件。

您需要修改代码，如下所示。用要开始的行号替换“将行号放在此处”，用要开始的列替换“将列号放在此处”

Cells(put_row_number_here, put_column_number_here).Select

Do Until ActiveCell = ""
    If ActiveCell.Offset(0,4).Value = "J" Then
        strEmailTo = ActiveCell.Value
        SendSingleMail (strEmailTo)
    End If

    ActiveCell.Offset(1,0).Select
Loop

---

我想我在这里没有说清楚：我想从细胞（2,22）开始。选择，因为所有电子邮件地址都存储在第22列中。我现在需要将vba代码修改为第6列中的“look”：例如，如果单元格（4,22）中有电子邮件地址，单元格（4,6）中有“J”，则应发送电子邮件。如果该行号有一个“N”，则不会调用电子邮件函数，脚本将继续。