用程序解决你的问题应该能够符合要求
Sub abcd()For i = 1 To [A65536].End(xlUp).Rowa = Cells(i, 1)If i = 1 Then b = a If a - b > 8.33333333333334E-02 Then Cells(i - 1, 3) = b: Cells(i - 1, 4) = Cells(i - 1, 1) Cells(i - 1, 5) = t: Cells(i - 1, 6) = c Range(Cells(i - 1, 3), Cells(i - 1, 4)).NumberFormatLocal = "h:mm:ss;@" b = Cells(i, 1): i = i - 1: t = 0: c = 0 Else t = t + 1 c = c + Cells(i, 2) d = a - b End IfNext Cells(i - 1, 3) = b: Cells(i - 1, 4) = Cells(i - 1, 1) Cells(i - 1, 5) = t: Cells(i - 1, 6) = c Range(Cells(i - 1, 3), Cells(i - 1, 4)).NumberFormatLocal = "h:mm:ss;@" b = Cells(i, 1)End Sub