根据A列不同单号分组计算时间差

lcxq120713

行数是随机的

Qs18

Sub qs() '2024/6/28
For i = 2 To 10
    If Range("a" & i).Value = Range("a" & i + 1).Value Then
        If Range("a" & i) <> "" Then
            Range("c" & i + 1) = DateDiff("n", Range("b" & i), Range("b" & i + 1))
        End If
    End If
Next
MsgBox "完成！"
End Sub

Qs18

试试.........

Qs18

试一下..........

lcxq120713

Qs18 发表于 2024-6-28 13:48
试一下..........

好的 谢谢！！

lcxq120713

Qs18 发表于 2024-6-28 13:46
试试.........

还有很多行 下面的数据怎么处理呢

Qs18

lcxq120713 发表于 2024-6-28 15:27
还有很多行 下面的数据怎么处理呢

把最大行号变成动态的就可以了

Qs18

Sub qs() '2024/6/28
For i = 2 To Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    If Range("a" & i).Value = Range("a" & i + 1).Value Then
        If Range("a" & i) <> "" Then
            Range("c" & i + 1) = DateDiff("n", Range("b" & i), Range("b" & i + 1))
        End If
    End If
Next
MsgBox "完成！"
End Sub

Qs18

改成动态的了...........

lcxq120713

Qs18 发表于 2024-6-28 15:50
改成动态的了...........

感谢感谢！