Excel 使用VBA在电子邮件附件中发送两行

我正在尝试发送excel电子表格中的第一行，其中包含我的标签，最后一行是通过VBA编码的电子邮件中的最后一个条目

现在我只能发送一行。这是我的电子邮件代码中的代码：

Set Source = Rows(emptyrow).SpecialCells(xlCellTypeVisible) ]

---

我如何才能将行1和行semptyrow添加到此中？肯定有更好的解决方案，但这是一个很快就浮现在脑海中的解决方案：

set source = range(Rows(1).address & "," & Rows(emptyrow).address).SpecialCells(xlCellTypeVisible)

恶心，但如果我正确理解了你的需求就行了

编辑：找到另一个解决方案：

set source = Application.Union(rows(1),rows(emptyrow)).SpecialCells(xlCellTypeVisible)

---

您需要发布比一行更多的代码才能获得最佳帮助。整个方法可能是最好的。