如何自动计算工作时长，公式或VBA都可

goblin_he

求助论坛大神：
1、需要统计生产车间工人的工作时长

2、只取开始和结束打卡的有效数据
3、公式或VBA都可。

3190496160

Sub 插入行计算()
With Sheets("打卡时间")
     rs = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = rs To 4 Step -1
        .Rows(i).Insert Shift:=xlDown
    Next i
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    For i = 3 To rs Step 2
        For j = 2 To 32
            If Trim(Cells(i, j)) <> "" Then
                If InStr(Cells(i, j), Chr(10)) > 0 Then
                    rr = Split(Cells(i, j), Chr(10))
                    ks = rr(0)
                    js = rr(UBound(rr))
                    Cells(i + 1, j) = DateDiff("h", ks, js)
                End If
            End If
        Next j
    Next i
End With
MsgBox "ok!"
End Sub

3190496160

这种形式肯定是不能存在的

3190496160

生产部10月钉钉考勤原始数据.rar (45.64 KB, 下载次数: 31)

2022-11-13 14:30 上传

点击文件名下载附件

goblin_he

3190496160 发表于 2022-11-13 14:30

谢谢春风化雨。谢谢你的VBA小程序