实现指纹原始记录按每个日期一行的方式显示出来

sunnycare_

如表所示，表1为 考勤机导出来的原始记录，现想实现如下功能：
1.新建表2，根据表1的数据，按每人每个日期一行的方式，把一个人一天多次的指纹记录都放在同一行上
2.表1的数据是有打卡才有显示，但表2希望按当月自然顺序排列，没打卡的日期显示为空行

请各位高手帮忙，谢谢~~~~

sunya_0529

用VBA来解决——

1. Option Explicit
   
2. 
   
3. Sub 提取考勤数据()
   
4. Dim c As Range, arr(9999, 11), i%, j%, k%
   
5. arr(0, 0) = "编号"
   
6. arr(0, 1) = "姓名"
   
7. arr(0, 2) = "日期"
   
8. arr(0, 3) = "星期"
   
9. arr(0, 4) = "时间1"
   
10. arr(0, 5) = "时间2"
    
11. arr(0, 6) = "时间3"
    
12. arr(0, 7) = "时间4"
    
13. arr(0, 8) = "时间5"
    
14. arr(0, 9) = "时间6"
    
15. arr(0, 10) = "时间7"
    
16. arr(0, 11) = "时间8"
    
17. For Each c In Sheet1.Range("A2:A" & Sheet1.[A65536].End(xlUp).Row)
    
18.   If c.Offset(0, 2) = c.Offset(-1, 2) Then
    
19.     j = j + 1
    
20.   Else
    
21.     i = i + 1
    
22.     j = 1
    
23.   End If
    
24.   arr(i, 0) = c.Value
    
25.   arr(i, 1) = c.Offset(0, 1)
    
26.   arr(i, 2) = CDate(Left(c.Offset(0, 2), 8))
    
27.   arr(i, 3) = "星期" & Right(c.Offset(0, 2), 1)
    
28.   For k = 0 To j
    
29.     arr(i, j + 3) = c.Offset(0, 3)
    
30.   Next
    
31. Next
    
32. ActiveCell.Resize(UBound(arr), 12) = arr
    
33. End Sub

复制代码

使用方法如下图所示——

sunnycare_

sunya_0529 发表于 2015-9-25 09:51
用VBA来解决——

太好了，非常谢谢~~~~~

董建軍

sunya_0529 发表于 2015-9-25 09:51
用VBA来解决——

版主，我要用你的這個代碼分析我這個數據，應該如何寫啊，謝謝？