**已关闭。**此问题需要debugging details。当前不接受答案。

编辑问题以包含desired behavior, a specific problem or error, and the shortest code necessary to reproduce the problem。这将有助于其他人回答问题。
4天前关闭。
Improve this question

(No title)
If Rcount >= 2 Then
    For Rnum = 2 To Rcount
        'Filter the FilterRange on the FieldNum column
        FilterRange.AutoFilter Field:=FieldNum, _
                                   Criteria1:=Cws.Cells(Rnum, 1).Value
        'Look for the mail address in the MailInfo worksheet
        mailAddress = ""
        On Error Resume Next
        mailAddress = ""
        On Error Resume Next
        mailAddress = Application.WorksheetFunction. _
            VLookup(Cws.Cells(Rnum, 1).Value, _
            Worksheets("Mailinfo").Range("A1:C" & _
            Worksheets("Mailinfo").Rows.Count), 3, False
 
        If mailAddress = "" Then               
            Ash.Cells(Rnum, 23) = "Email Missing for " & Ash.Cells(Rnum, 7)
        ElseIf mailAddress <> "" Then
            With Ash.AutoFilter.Range
                On Error Resume Next
                Set rng = .SpecialCells(xlCellTypeVisible)
                On Error GoTo 0
            End With
            Set OutMail = OutApp.CreateItem(0)
            'On Error Resume Next
            With OutMail
                .To = mailAddress
                .CC = Str6
                .Subject = Str5
                .HTMLBody = Str1 & Str2 & RangetoHTML(rng) & Str3 & Str4
                .Display  'Or use Display
            End With
            On Error GoTo 0
            Ash.Cells(Rnum, 23) = "Email Sent"
            Set OutMail = Nothing
        Else
            'Nothing
        End If
        'Close AutoFilter
        Ash.AutoFilterMode = False
    Next Rnum
End If

这是罗恩de bruin代码的一个片段。稍微改动了一下。即使工作表中存在邮件地址，代码也会执行else部分。
此外，如果有多个单元格具有相同的名称。它不会将已发送的电子邮件粘贴到每个单元格上。