考勤机下载的原始考勤数据如何处理

跳楼少年

小白第一次处理这种，求大神指教
附件是考勤机导出的原始数据，要将其处理为如图所示考勤表。
最好可以标注出漏打卡、迟到、早退
周一到周五上班时间：8:30-17:30  
周末全部算加班：以8:30为开始 计算加班时间

考勤表格式

考勤.rar (7.32 KB, 下载次数: 120)

2016-12-29 16:20 上传

点击文件名下载附件

yeminqiang

意思是让人帮你设计好一切啦?

跳楼少年

yeminqiang 发表于 2016-12-29 16:29
意思是让人帮你设计好一切啦?

没有啊 就想知道根据原始数据，可不可以标注出不在正常范围的数据

跳楼少年

搜索到一个超级接近目标的，求大神帮指导一下


Sub kaoqinfenxi()
Dim RowB, RowA, iRow, iCol, iRQ, jRow, jCol As Integer
Dim sXM, x, y, m, n As String
Dim Rng As Range
    RowA = Sheets("考勤记录").Range("A65536").End(xlUp).Row
    For iRow = 2 To RowA
        x = LTrim(Right(Sheets("考勤记录").Cells(iRow, 2), 8))  '循环读取考勤记录
        y = RTrim(Left(Sheets("考勤记录").Cells(iRow, 2), 10))  '并提取出人名、日期、时间
        sXM = Sheets("考勤记录").Range("A" & iRow)
        With Sheets("考勤表")
            RowB = .Range("A65536").End(xlUp).Row
            Set Rng = .Range("A5:A" & RowB + 2).Find(what:=sXM, LookIn:=xlValues, LookAt:=xlWhole)  '查找要分析的人员所在位置
            If Rng Is Nothing Then                              '判断要分析的人员是否存在于分析表中
                .Range("A2:AG3").Copy Destination:=.Range("A" & RowB + 2)   '如果不存在就新建一条记录
                .Cells(RowB + 2, 1) = sXM                                   '并赋值人名、时间
                .Cells(RowB + 2, Day(y) + 2) = x
            Else: m = .Cells(Rng.Row, Day(y) + 2)                           '如果存在就判断其是最早签到和最后离开时间
                  n = .Cells(Rng.Row + 1, Day(y) + 2)
                  If m = "" Then                                            '如果无数据就肯定是第一次打卡
                    .Cells(Rng.Row, Day(y) + 2) = x
                  ElseIf TimeValue(x) < m Then                              '其实这个判断可不要，因为记录是按时间排序的，如果存在记录肯定就不是第一次了
                        .Cells(Rng.Row, Day(y) + 2) = x
                      ElseIf TimeValue(x) > n Then                          '注意这里的m、n已经被赋值为时间数据格式，因此没必要用TimeValue函数，
                            .Cells(Rng.Row + 1, Day(y) + 2) = x             '而我的记录表中是文本格式，所以x要使用TimeValue来转换。
                  End If
            End If
        End With
    Next
End Sub