使用VBA根据唯一值和唯一日期对单元格求和

Question

我在Excel中有一个数据转储，该数据转储包含每月机组人员工作时间的数据。当前，同一日期有多行数据。

我想运行一个保留唯一名称和唯一日期的宏，但删除具有重复日期的行（每个日期每个乘员保留一行）。我希望在“小时”列中将同一天的多个轮班合并为一个。 到目前为止，这是我的代码和结果。

Sub mcrCombineAndScrubDups()
For Each a In Range("A1", Cells(Rows.Count, "A").End(xlUp))
    For r = 1 To Cells(Rows.Count, "A").End(xlUp).Row - a.Row
        If a = a.Offset(r, 0) And a.Offset(0, 1) = a.Offset(r, 1) And a.Offset(0, 2) = a.Offset(r, 2) Then
            a.Offset(0, 6) = a.Offset(0, 6) + a.Offset(r, 6)
            a.Offset(r, 0).EntireRow.Delete
            r = r - 1
        End If
    Next r
Next a
End Sub

使用当前代码，它将整个月的所有工作时间合并到一个字段中，而不是每个日期的每个机组人员一行。我知道可以运行数据透视表，但是我的老板希望自动化。谢谢！