如何用VBA获取Excel动态列表首尾单元格内容作为邮件主题？

别担心，这个需求其实很好解决——核心就是让VBA自动定位列表的最后一个非空单元格，不管你的列表长度是5条、8条甚至只有1条，都能准确抓到首尾内容。下面分两种常见场景给你代码示例：

情况1：列表是单列数据（比如A列，从A1开始无空行） #

这是最常见的纵向列表场景，比如数据都在A列，从A1往下连续排列：

Sub CreateEmailWithDynamicSubject()
    Dim outlookApp As Object
    Dim newEmail As Object
    Dim firstContent As String
    Dim lastContent As String
    Dim lastDataRow As Long
    
    ' 1. 定位最后一行数据
    ' Rows.Count是当前工作表的总行数，End(xlUp)相当于手动按Ctrl+↑，直接跳到最后一个非空行
    lastDataRow = Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 2. 获取首尾单元格内容
    firstContent = Range("A1").Value ' 首单元格，根据你的起始位置调整，比如A2就写Range("A2")
    lastContent = Cells(lastDataRow, "A").Value
    
    ' 3. 生成邮件主题（处理列表只有1行的特殊情况）
    Dim emailSubject As String
    If firstContent = lastContent Then
        emailSubject = "数据列表：" & firstContent
    Else
        emailSubject = "数据列表：从" & firstContent & "到" & lastContent
    End If
    
    ' 4. 创建并设置邮件
    Set outlookApp = CreateObject("Outlook.Application")
    Set newEmail = outlookApp.CreateItem(0)
    
    With newEmail
        .Subject = emailSubject
        .Body = "这里填写你的邮件正文内容..."
        .Display ' 如果你想直接发送，把.Display改成.Send即可
    End With
    
    ' 释放对象，避免内存占用
    Set newEmail = Nothing
    Set outlookApp = Nothing
End Sub

情况2：列表是单行数据（比如第1行，从A1开始无空列） #

如果你的数据是横向排列的，比如从A1到X1连续分布，只需要调整定位最后一列的逻辑：

Sub CreateEmailWithHorizontalListSubject()
    Dim outlookApp As Object
    Dim newEmail As Object
    Dim firstContent As String
    Dim lastContent As String
    Dim lastDataCol As Long
    
    ' 定位最后一列数据
    lastDataCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 获取首尾单元格内容
    firstContent = Cells(1, "A").Value
    lastContent = Cells(1, lastDataCol).Value
    
    ' 生成主题（同样处理单行只有1个数据的情况）
    Dim emailSubject As String
    If firstContent = lastContent Then
        emailSubject = "数据列表：" & firstContent
    Else
        emailSubject = "数据列表：从" & firstContent & "到" & lastContent
    End If
    
    ' 创建邮件
    Set outlookApp = CreateObject("Outlook.Application")
    Set newEmail = outlookApp.CreateItem(0)
    
    With newEmail
        .Subject = emailSubject
        .Body = "这里填写你的邮件正文内容..."
        .Display
    End With
    
    Set newEmail = Nothing
    Set outlookApp = Nothing
End Sub

关键逻辑说明 #

• Cells(Rows.Count, "A").End(xlUp).Row：这行是核心，它会从A列的最后一行（比如Excel 365的第1048576行）往上找第一个非空单元格，完美适配动态长度的列表，不管你加多少条数据都不用改代码。
• 加了首尾内容相同的判断，避免列表只有1条数据时主题出现重复内容，更符合使用习惯。

你只需要根据自己的实际数据位置，调整代码里的列号（比如把"A"改成"B"）或起始行/列（比如把Range("A1")改成Range("B2")）就可以直接用啦。

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