显示电子邮件正文vba的范围部分

我想添加一个范围，从我的工作表到生成但不使用vba的电子邮件正文。我不断地遇到错误，任何帮助都将不胜感激

myRange = Range("A12:A12.End(xlDown)").SpecialCells(xlCellTypeVisible)

'This will extract the info for the worksheet
'This extracts the subject title from the worksheet

EmailSubject = "STOCKS " & Type1 & " - " & Left(Trade, 6) & " [" & _ 
               Range("A12").Value & "/" & Range("A12").End(xlDown).Value _
               & "]: % at %"

Body = "<b>" & Range("A8").Value & "</b><br/>" & Range("A9").Value & "<br/>" _ 
       & Range("A10").Value & "<br/><br/>" _
       & myRange

myRange=Range（“A12:A12.End（xlDown）”）。特殊单元格（xlCellTypeVisible）
'这将提取工作表的信息
'这将从工作表中提取主题标题
EmailSubject=“STOCKS”&Type1&“-”&Left（Trade，6）&“[”&u”
范围（“A12”）.值&“/”和范围（“A12”）.结束（xlDown）.值_
&“]：%at%”
Body=“”&范围（“A8”）。值和范围（“A9”）。值和范围（“A9”）。”
&范围（“A10”）。值&“

”_
&myRange

您在声明范围时出现了错误

• 范围是一个对象，必须设置它

• End（xlDown）

  不能作为字符串传递
• 尝试定义范围的开始单元格和结束单元格，然后才能正确定义范围：

---

---

一旦您成功地获得了正确的范围，就更容易了-

您在声明范围时出现了错误

• 范围是一个对象，必须设置它

• End（xlDown）

  不能作为字符串传递
• 尝试定义范围的开始单元格和结束单元格，然后才能正确定义范围：

---

---

一旦您设法获得了正确的范围，就更容易了-

代码片段甚至不会编译，特别是

EmailSubject…

部分。你需要在这一行的末尾加一个“u”。这是一行，这里的编辑把它的声音剪得很奇怪，但是你真的应该编辑你的文章。一般来说，发布甚至不编译的代码是一个很大的禁忌。代码片段甚至不编译，特别是

EmailSubject…

部分。你需要在这一行的末尾加一个“u”。这是一行，这里的编辑把它的声音剪得很奇怪，但是你真的应该编辑你的文章。一般来说，发布甚至没有编译的代码都是一个大问题。@theudster-只需从中获取答案，并在我的答案中声明您的范围。它应该会起作用。@theudster-只需从我的答案中选择答案并声明你的范围。它应该会起作用。

Option Explicit

Sub TestMe()

    Dim myRange As Range
    Dim firstCell   As Range
    Dim lastCell As Range

    Set firstCell = Range("A12")
    Set lastCell = firstCell.End(xlDown)
    Set myRange = Range(firstCell, lastCell).SpecialCells(xlCellTypeVisible)

End Sub