烦人的考勤统计汇总？

blackttea1

数据源为我公司的考勤表的格式：1，员工有许多，表中只列中三个，要求按部门、员工及日期查找并汇总相应对应时间的出勤；2，对应查找的数据以数据源中的黄色部分为主，能以我作出的辅助列的数据出现最佳；请用程序按要求表中格式出现，谢谢！

[ 本帖最后由 blackttea1 于 2011-7-6 22:22 编辑 ]

blackttea1

顶一下，每个月都要一个个去核对，太烦人！

blackttea1

顶一下，渴望得到支持。

blackttea1

再次顶下，谢谢！

blackttea1

可能是有难度，我现在想改变一个方式，通过定位于的动态员工编码与员工总结的位置将员工编码或车间编号提取并复制到A列或B列，能将两者一起提出取最好，至少应将员工编码提取到A列，目的达到后作分析，请各位指导一下，谢谢！

蓝桥玄霜

1. Sub yy()
   
2. Dim i&, Myr&, j&, Arr, r%, Arr1(), ks&, js%, bt, rq, Brr
   
3. Sheet1.Activate
   
4. Cells.ClearContents
   
5. Myr = Sheet2.[a65536].End(xlUp).Row
   
6. Arr = Sheet2.Range("a1:p" & Myr)
   
7. For i = 5 To UBound(Arr)
   
8.     If Arr(i, 1) = "部门编号" Then
   
9.         r = r + 1
   
10.         ReDim Preserve Arr1(1 To r)
    
11.         Arr1(r) = i
    
12.     End If
    
13. Next
    
14. bt = Array("部门编号", "员工编号", "部门名称", "员工姓名")
    
15. For i = 1 To r
    
16.     If i <> r Then
    
17.         js = Arr1(i + 1) - 2
    
18.     Else
    
19.         js = Myr
    
20.     End If
    
21.     ks = Arr1(i) + 2
    
22.     If i = 1 Then
    
23.         [a1].Resize(1, 4) = bt
    
24.         rq = Sheet2.Cells(ks, 1).Resize(js - ks + 1, 1)
    
25.         [e1].Resize(1, UBound(rq)) = Application.Transpose(rq)
    
26.         ReDim Brr(1 To r, 1 To UBound(rq) + 4)
    
27.     End If
    
28.     Brr(i, 1) = Arr(Arr1(i), 2)
    
29.     Brr(i, 2) = Arr(Arr1(i) + 1, 2)
    
30.     Brr(i, 3) = Arr(Arr1(i), 5)
    
31.     Brr(i, 4) = Arr(Arr1(i) + 1, 5)
    
32.     For j = ks To js
    
33.         Set r1 = Rows(1).Find(Arr(j, 1))
    
34.         Brr(i, r1.Column) = Arr(j, 16)
    
35.     Next
    
36. Next
    
37. [a2].Resize(r, UBound(Brr, 2)) = Brr
    
38. End Sub
    

复制代码

蓝桥玄霜

请见附件。

blackttea1

谢谢蓝桥玄霜的指导，已达到我的要求，谢谢！

meishayongle

我是来学习的

cai9906

镶嵌有“病毒”？？—— 下载学习死机了！！！！！！！！！！！