在邮件正文中引用动态Range时AFund内容缺失的问题求助

核心问题：AFund变量未被赋值 #

你定义了Dim AFund As String，但整个代码里没有任何给AFund赋值的逻辑，直接在邮件正文中拼接这个变量，自然会显示为空。

另外代码里还有几个逻辑混乱和潜在问题：

• FundAdd = AFund这行完全无效：AFund是空字符串，之后又用Set FundAdd = Range(...)把它重新定义为Range对象，这行赋值完全多余。
• 所有Range/Cells调用未指定工作表：比如LastRow = Cells(Rows.Count,5).End(xlUp).Row，如果当前激活的不是目标工作表（比如Cover或CDEA），会读取错误的行号，导致Range范围错误。
• 未将Range内容转换为字符串：即使你想把FundAdd这个Range的内容放到AFund里，也需要把单元格内容拼接成适合HTML显示的格式。

修复后的关键代码调整 #

1. 给AFund赋值（把Range E2:E[LastRow]的内容用HTML换行符拼接）
2. 所有Range操作指定具体工作表
3. 移除无用的FundAdd = AFund语句

调整后的核心代码片段：

Dim BlasEmail As Workbook
Dim OutApp As Object
Dim OutMail As Object
Dim FundAdd, FundRem, Broker As Range
Dim AFund As String
Dim LastRow As Long, LRow As Long, LasRow As Long ' 显式定义变量类型

Set BlastEmail = ActiveWorkbook
Set Cover = ThisWorkbook.Sheets("Cover")
Set CDEA = ThisWorkbook.Sheets("CDEA")

' 指定工作表获取行号，这里假设读取CDEA表内容，可根据实际需求调整
With CDEA
    LastRow = .Cells(.Rows.Count, 5).End(xlUp).Row
    LRow = .Cells(.Rows.Count, 7).End(xlUp).Row
    LasRow = .Cells(.Rows.Count, 2).End(xlUp).Row
    
    Set FundAdd = .Range("E2:E" & LastRow)
    Set FundRem = .Range("G2:G" & LRow)
    Set Broker = .Range("C6:C" & LasRow)
End With

' 将FundAdd的单元格内容拼接为HTML格式字符串，赋值给AFund
AFund = ""
Dim cell As Range
For Each cell In FundAdd
    If cell.Value <> "" Then
        AFund = AFund & cell.Value & "<br>"
    End If
Next cell
' 移除最后多余的<br>标签
If AFund <> "" Then AFund = Left(AFund, Len(AFund) - 4)

' 后续邮件逻辑保持不变...

其他注意事项 #

• 确保Range("ISDAMRA")和Range("G2")也指定了正确的工作表，避免读取错误单元格的值
• 确认GetBoiler函数能正常读取签名HTML内容，若该函数异常也可能影响邮件显示，但当前AFund为空的核心原因是未赋值

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