我来帮你搞定这个问题！结合你用函数生成邮件的场景，分两种常见的实现方案给你：

一、用VBA自动化生成邮件（最常用的批量处理方式） #

如果是通过VBA调用Outlook生成邮件，有两种可靠的方式实现格式需求：

方法1：直接复制带格式的单元格到邮件 #

这种方式可以完整保留Excel里的格式，你可以提前设置好对齐和边框，也能在代码里直接配置：

Sub DailyDataEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim dataRange As Range
    
    ' 指定要导出的两列数据区域（比如Sheet1的A1到B10）
    Set dataRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    
    ' 给区域设置右对齐+边框（如果没提前在Excel里设置的话）
    With dataRange
        .HorizontalAlignment = xlRight
        .Borders.LineStyle = xlContinuous ' 启用所有边框
    End With
    
    ' 创建Outlook邮件对象
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    
    With olMail
        .To = "your-recipient@example.com"
        .Subject = "每日数据报表"
        ' 复制单元格并保留原格式粘贴到邮件正文
        dataRange.Copy
        .GetInspector.WordEditor.Range.PasteAndFormat wdFormatOriginalFormatting
        .Display ' 测试用，确认后可以改成.Send直接发送
    End With
    
    ' 释放对象避免内存占用
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

关键说明：xlRight是Excel内置的右对齐常量，wdFormatOriginalFormatting确保边框和对齐格式完全复制到邮件里。

方法2：生成HTML表格插入邮件（适配所有邮箱客户端） #

如果担心不同邮箱显示格式不一致，直接生成HTML格式的表格更稳定：

Sub GenerateHTMLBasedEmail()
    Dim olApp As Object
    Dim olMail As Object
    Dim dataRange As Range
    Dim htmlContent As String
    Dim rowNum As Integer, colNum As Integer
    
    Set dataRange = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    ' 初始化HTML表格，设置边框和内边距
    htmlContent = "<table border='1' cellpadding='6' cellspacing='0'>"
    
    ' 遍历数据生成表格行和单元格
    For rowNum = 1 To dataRange.Rows.Count
        htmlContent = htmlContent & "<tr>"
        For colNum = 1 To dataRange.Columns.Count
            ' 给单元格设置右对齐样式
            htmlContent = htmlContent & "<td style='text-align:right;'>" & dataRange.Cells(rowNum, colNum).Value & "</td>"
        Next colNum
        htmlContent = htmlContent & "</tr>"
    Next rowNum
    htmlContent = htmlContent & "</table>"
    
    ' 创建邮件并插入HTML内容
    Set olApp = CreateObject("Outlook.Application")
    Set olMail = olApp.CreateItem(0)
    
    With olMail
        .To = "your-recipient@example.com"
        .Subject = "每日数据报表"
        .HTMLBody = "<p>您好，以下是今日更新的数据：</p>" & htmlContent
        .Display
    End With
    
    Set olMail = Nothing
    Set olApp = Nothing
End Sub

优势：HTML格式在Outlook、Gmail、网易邮箱等客户端显示效果一致，text-align:right直接实现单元格内容右对齐，border='1'设置边框。

二、无需代码：用Excel内置发送邮件功能 #

如果你是手动用Excel的「文件>分享>发送邮件」功能，只需要提前两步设置格式：

1. 选中要复制的两列数据区域，右键选择「设置单元格格式」
2. 在「对齐」选项卡把「水平对齐」改成「靠右」，再切换到「边框」选项卡设置好边框样式
3. 复制设置好格式的区域，粘贴到邮件正文时选择「保留源格式」即可

小提示 #

• 用VBA时记得开启Outlook的宏权限，或者在代码里处理权限提示
• HTML格式还能自定义更多样式，比如修改字体、单元格背景色，只需要调整<td>的style属性

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