如何在Excel宏中获取指定区域E65:E78的最后一个非空单元格值？

错误原因 #

你遇到的Run-time error '1004'主要有两个原因：

• 直接将区域对象Range("E65:E78")参与字符串拼接，VBA无法直接将整个区域转换为单个值
• 未明确指定工作表时，Range可能引用到错误的工作表（比如当前激活的不是目标表）

解决方案 #

要获取E65:E78区域内最后一个非空单元格的值，可以用Find方法从区域底部向上查找，或者从E78开始往上遍历找第一个非空单元格。以下是两种可行的实现方式：

方法1：使用Find方法（推荐） #

在邮件Body的拼接代码中，替换原来的Range("E65:E78")为以下代码片段：

' 明确指定目标工作表，比如Sheet1，根据你的实际表名修改
Sheet1.Range("E65:E78").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Value

方法2：从区域末尾向上遍历 #

如果担心Find方法的特殊情况（比如区域全空），可以用遍历方式：

Dim lastNonEmpty As String
Dim cell As Range
' 指定目标工作表
With Sheet1.Range("E65:E78")
    For Each cell In .Cells
        If cell.Value <> "" Then lastNonEmpty = cell.Value
    Next cell
End With

然后在Body中用lastNonEmpty变量替代原区域引用。

修改后的完整代码示例 #

Dim lastNonEmptyVal As String
' 获取E65:E78最后一个非空值，指定工作表为Sheet1，按需修改
lastNonEmptyVal = Sheet1.Range("E65:E78").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Value

With OutMail
    .To = "Email 1 Here"
    .CC = "Email 2 Here"
    .Subject = Sheet1.Range("A5").Value & " Event" ' 同样明确指定工作表
    .Body = "Example Text," & vbNewLine & "Example Text " & Sheet1.Range("A5").Value & " scheduled for " & lastNonEmptyVal & "." & vbNewLine _
    & vbNewLine & "Example Text" & vbNewLine & "Thanks." & vbNewLine & vbNewLine
    .Display
End With

注意事项 #

• 务必明确指定工作表（比如Sheet1、ThisWorkbook.Sheets("你的表名")），避免因工作表切换导致的错误
• 如果E65:E78可能全为空，建议添加判断，避免Find方法返回Nothing导致的错误，例如：

Dim targetCell As Range
Set targetCell = Sheet1.Range("E65:E78").Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows)
If Not targetCell Is Nothing Then
    lastNonEmptyVal = targetCell.Value
Else
    lastNonEmptyVal = "无数据" ' 自定义空值提示
End If

内容的提问来源于stack exchange，提问作者Aidan Smith Ohbewan