求助大神，帮忙统计每日上班工时！非常感谢

j635729111

公司的打卡时间非常混乱，有大量员工重复打卡，导致考勤上面有多个打卡记录。实在是没办法把每个员工每天的工时统计出来。弄了快一个星期了，真的是头皮发麻了。上班时间是：7：30-12：00  13：30-19：00
具体考勤如附件，求助大神呀！

小花鹿

你得说明如何计算                                                                           

j635729111

小花鹿 发表于 2018-9-12 21:48
你得说明如何计算

我们就是想统计出每天的工时，但是员工打卡实在是太乱了，完全不知道要怎么计算出来，请问您有什么好的方法哦，谢谢您！

VBA萌新

你是一个员工一个表，还是所有员工都在一个表格里面。而且我只看到你发了一个员工的考勤。能发完整不？你计算工时应该是”上午签退的时间”-上午签到的时间”+“下午签退的时间-下午签到的时间”来计算。然后早上的取最早的时间，下午取最晚的时间来算工时？其实你可以把你要做的整张表格发出来。

我是来讨说法的

看我发的帖子，考勤宝

zhanglcn

用了个笨办法，凑合用一下吧

1. Sub test()
   
2. Application.DisplayAlerts = False
   
3. Dim n%
   
4. n = Cells(Rows.Count, 1).End(xlUp).Row
   
5. Range("E2:E" & n).Copy
   
6. Range("F2").Select
   
7. ActiveSheet.Paste
   
8. 
   
9. Range("F2:F" & n).TextToColumns DataType:=xlDelimited, Space:=True
   
10. Columns("F").Insert
    
11. Columns("F").Insert
    
12. 
    
13. For i = 2 To n
    
14.     If Cells(i, 5) <> "" Then
    
15.         Cells(i, 6) = Application.WorksheetFunction.Min(Range(Cells(i, 8), Cells(i, Cells(i, 8).End(xlToRight).Column)))
    
16.         Cells(i, 7) = Application.WorksheetFunction.Max(Range(Cells(i, 8), Cells(i, Cells(i, 8).End(xlToRight).Column)))
    
17.         Range(Cells(i, 8), Cells(i, Cells(i, 8).End(xlToRight).Column)).ClearContents
    
18.         Cells(i, 8) = Cells(i, 7) - Cells(i, 6)
    
19.     End If
    
20. Next
    
21. 
    
22. Columns("F:H").NumberFormatLocal = "h:mm;@"
    
23. Cells(1, 6) = "最早打卡时间"
    
24. Cells(1, 7) = "最晚打卡时间"
    
25. Cells(1, 8) = "上班时长"
    
26. Columns("F:H").EntireColumn.AutoFit
    
27. Application.DisplayAlerts = True
    
28. End Sub
    

复制代码

qimixing

给你写了一个程序，如果你需要，可以免费拿去用。
（1）打开网址，见截图



（2）选择模板2，然后把Excel数据导入



（3）系统自动给出结果