如何在VBA Excel邮件合并中跳过空记录？

Sub MergeAndSkipEmptyRecords()
    Dim emailBody As String
    Dim rng As Range
    Dim cell As Range
    
    ' 设置数据源范围，可以根据实际情况进行修改
    Set rng = Sheet1.Range("A2:A10")
    
    ' 循环遍历数据源
    For Each cell In rng
        ' 检查当前记录是否为空
        If cell.Value <> "" Then
            ' 将当前记录的内容添加到邮件正文中
            emailBody = emailBody & cell.Value & vbCrLf
        End If
    Next cell
    
    ' 发送邮件，这里省略具体的发送代码
    
    ' 打印邮件正文内容，供参考
    Debug.Print emailBody
End Sub