VBA访问帮助-一个用户需要多行，需要对它们进行分组并仅向该用户发送一封电子邮件，而不是每行发送一封电子邮件

Sub GroupAndSendEmail()
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Dim emailBody As String
    
    ' 设置数据范围，假设数据在Sheet1的A列和B列中
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:B10")
    
    ' 创建字典对象，用于存储用户和对应的数据行
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历数据范围，将数据按用户进行分组
    For Each cell In rng
        If Not dict.Exists(cell.Value) Then
            dict.Add cell.Value, cell.Offset(0, 1).Value
        Else
            dict(cell.Value) = dict(cell.Value) & vbCrLf & cell.Offset(0, 1).Value
        End If
    Next cell
    
    ' 遍历字典，发送邮件给每个用户
    For Each key In dict.Keys
        emailBody = "Dear " & key & "," & vbCrLf & vbCrLf & dict(key)
        ' 调用发送邮件的函数，将emailBody作为邮件正文发送给该用户
        SendEmail(key, emailBody)
    Next key
End Sub

Sub SendEmail(recipient As String, body As String)
    ' 发送邮件的代码，这里省略具体实现
    ' 可以使用Outlook对象模型或其他邮件组件来发送邮件
    ' 在邮件中设置收件人、主题和正文等信息
End Sub