考勤原始数据处理

zyfzlphx

刷卡记录在同一天同一个人考勤在一个单元格，怎么处理？

zyfzlphx

在线等！！！！！！！！！！！！！！！！！！！

yangyangzhifeng

split函数，instr+mid

zyfzlphx

yangyangzhifeng 发表于 2017-1-7 21:44
split函数，instr+mid

我就是一个小白，帮忙转换成第一列日期，第二列工号，第三列姓名，第四列是第一次打卡时间，第五列是最后一次打卡时间，谢谢

yangyangzhifeng

试试看，结果在sheet2

1. Sub test()
   
2.     Dim arr, brr, i&, j&, t
   
3.     arr = Sheet1.Range("A4:AE24")
   
4.     ReDim brr(1 To UBound(arr), 0 To UBound(arr, 2))
   
5.     For j = 1 To UBound(arr, 2)
   
6.         brr(1, j) = arr(1, j)
   
7.     Next
   
8.     For i = 2 To UBound(arr) Step 2
   
9.         brr(i, 0) = arr(i, 3)
   
10.         brr(i + 1, 0) = arr(i, 11)
    
11.         For j = 1 To UBound(arr, 2)
    
12.             If arr(i + 1, j) <> "" Then
    
13.                 t = Split(arr(i + 1, j), Chr(10))
    
14.                 brr(i, j) = t(0)
    
15.                 brr(i + 1, j) = t(UBound(t) - 1)
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     Sheet2.Cells.ClearContents
    
20.     Sheet2.Range("A1").Resize(UBound(brr), 1 + UBound(brr)) = brr
    
21. End Sub
    

复制代码

zyfzlphx

yangyangzhifeng 发表于 2017-1-8 08:04
试试看，结果在sheet2

试过，只能有第一个时间，请指教，谢谢

gtczs

问题解决了吗

varytina

最后形成这样的文件嘛？

liangmutou01

Sub tj()
  Application.ScreenUpdating = False
  ar = UsedRange.Value
  ReDim br(1 To 31 * UBound(ar), 1 To 5)
  For h = 5 To UBound(ar) Step 2
    For c = 1 To UBound(ar, 2)
      dk = ar(h + 1, c)
      If dk <> "" Then
        i = i + 1
        ls = Split(dk, Chr(10))
        br(i, 1) = ar(4, c)
        br(i, 2) = ar(h, 3)
        br(i, 3) = ar(h, 11)
        br(i, 4) = ls(0)
        br(i, 5) = ls(UBound(ls) - 1)
      End If
    Next c
  Next h
  With Sheets("Sheet2")
    .Range("a1:e1") = Array("日期", "工号", "姓名", "首次打卡", "末次打卡")
    .Range("a2").Resize(UBound(br), UBound(br, 2)) = br
  End With
  Application.ScreenUpdating = True
End Sub

liangmutou01

把程序文件一并发给你，希望能帮到你。