Excel宏应用多个行和列的条件

Question

我正在执行Excel工作表宏自动化，其中我有3列说[Name，Date，Work-Hours]和许多行。我需要做的是，创建一个迭代Date列的宏，并记下所有具有相同日期的行，然后为所有这些行添加工作时间。一旦计算了特定日期的总工作时间，如果它大于9小时，我将必须突出显示与该日期对应的所有行。同样，我必须为工作表中的所有行日期执行此操作。

For i = 2 To Rows.Count 'TO CHECK IF 9 HOURS ARE FILLED PER DAY 
  Do While DatePrevious = DateNext 
    hours = hours + Cells(i, 5) 
  Loop 
  If hours >= 9 Then 
    hours = 0 
  Else 
    Cells(i, 1).Interior.ColorIndex = 10 
    hours = 0 
  End If 
Next i