VBA宏邮件正文多区域复制问题：仅粘贴True关联区域求助

需要实现VBA宏：根据Excel中S列指定单元格（S11至S17）是否为True，将对应预定义的单元格区域复制到Outlook邮件正文。例如：

• 若S11为True，则粘贴range("B2:O5")
• 若S11和S13均为True，则依次粘贴这两个区域

当前宏存在问题：当后续单元格（如S15）为True时，会连带粘贴所有之前的区域（即使对应S列单元格为False）。例如S11=True、S12-S14=False、S15=True时，本应仅粘贴range("B2:O5")和range("B64:O93")，但实际会包含S12-S14对应的中间区域。

原代码使用Union方法合并符合条件的区域，但Union会将多个区域的整个连续范围包含进来（包括区域之间的空白单元格），导致复制时一并粘贴这些空白内容。

放弃Union合并区域，改为逐个复制符合条件的区域，依次粘贴到邮件正文末尾，确保只粘贴目标区域，不包含中间空白。

修正后的VBA代码：

Sub SendEmail()
    Dim doc As Object
    Dim dt As Date
    Dim X As Long
    Dim rangeArray As Variant
    Dim ws As Worksheet
    Dim i As Integer
    
    dt = Date
    Set ws = Sheets("Price Table")
    
    ' 定义S列单元格对应的目标区域数组
    rangeArray = Array( _
        ws.Range("B2:O5"), _
        ws.Range("B6:O9"), _
        ws.Range("B10:O35"), _
        ws.Range("B36:O63"), _
        ws.Range("B64:O93"), _
        ws.Range("B94:O125"), _
        ws.Range("B126:O148") _
    )
    
    ' 创建Outlook邮件
    With CreateObject("Outlook.Application").CreateItem(0)
        .Body = "Good Morning , " & vbCrLf & vbCrLf & _
            "Please find below the Agricultural Market report for " & dt & " below. If you would like to see some quotations, please do let us know." & vbCrLf
        
        Set doc = .GetInspector.WordEditor
        
        ' 遍历S11到S17，逐个处理符合条件的区域
        For i = 11 To 17
            If ws.Range("S" & i).Value = True Then
                X = doc.Range.End - 1
                ' 复制对应区域并粘贴到邮件正文末尾
                rangeArray(i - 11).Copy
                doc.Range(X).Paste
                
                ' 可选：在区域之间添加换行，提升可读性
                doc.Range(doc.Range.End - 1).InsertAfter vbCrLf & vbCrLf
            End If
        Next i
        
        .To = "****@****.com;****@****.com"
        .CC = "****@***.com"
        .Subject = "Ags Market Update " & dt
        
        Application.CutCopyMode = 0
        
        .Display ' 改为.Send可直接发送邮件
    End With
End Sub

1. 提前定义工作表对象ws，避免重复调用Sheets("Price Table")，提升代码效率
2. 遍历S11到S17的单元格，逐个判断是否为True
3. 每找到一个符合条件的单元格，就复制对应的区域，粘贴到邮件正文的当前末尾位置
4. 可选添加换行，让不同区域之间的分隔更清晰
5. 移除了原代码中concatenatedRange变量，避免Union带来的问题

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