表格样式如上图：
但是这个表还有问题：1，比如一人一天了打了多次考勤，也重复在里面。按规则一个人一天最多打2次考勤，打多了也不可能多算，反而给我们后期处理带来许多麻烦。下面我们来解决这个问题。下面我们来统计，首先定义一个结构kq_rec：
Structure kq_rec Dim 姓名 As String Dim 部门 As String Dim userID As String Dim 考勤日期 As String Dim 第1次考勤 As String Dim 第2次考勤 As String End Structure
以上为vbnet代码，在vba中用type结构的具体用法可以参看相关教程，系统帮助、微软msdn文档都有，只在愿意搜索都可以找到。一般情况下我不写基本教程（讲教程我也不会讲啊[捂脸]），只做示例演示，这样结合具体问题可能更好理解些。基础用法就那多，可以实例却是应用无穷的。这里贴出来为方便对照学习：
定义：Type kq_rec 姓名 As String 部门 As stringEnd Type使用：Dim kq As kq_recWith kq .姓名 = "老五" .部门 = 55End With大致是这些的。
要把右表转为左表，要合并每天中的考勤点，还要把重复的过滤掉。
用时281毫秒，代码主要内容是：
Dim arr = ws.Getgrid(1, "A") Dim myreccls As New myrec_cls Dim kqlist As New List(Of myrec_cls.myrec) Dim k As Integer For i = 1 To UBound(arr, 1) k = myreccls.list查找(kqlist, arr(i, 3), arr(i, 4)) If k = -1 Then If arr(i, 5) = "1" Then myreccls.list添加(kqlist, arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), "1", "") If arr(i, 5) = "2" Then myreccls.list添加(kqlist, arr(i, 1), arr(i, 2), arr(i, 3), arr(i, 4), "", "2") Else If arr(i, 5) = "1" Then myreccls.list更新E(kqlist, k, "1") If arr(i, 5) = "2" Then myreccls.list更新F(kqlist, k, "2") End If Next
在kqlist查找指定信息，如果找到返回id号，如果没找到返回-1.
然后根据考勤点，如果为1更新E，如果是2更新E
Dim ws2 = (New excel).activeworkbook.WorkSheets("报表") ws2.allcells.Clearcontents() 'ws2.range("A1:E5000").Clearcontents() ws2.allcells.set文本格式() Dim brr = makegrid(kqlist.Count, 6) For i = 1 To kqlist.Count brr(i, 1) = kqlist(i - 1).A brr(i, 2) = kqlist(i - 1).B brr(i, 3) = kqlist(i - 1).C brr(i, 4) = kqlist(i - 1).D brr(i, 5) = kqlist(i - 1).E brr(i, 6) = kqlist(i - 1).F Next ws2.setgrid(brr, 1, 1) ws2.allcells.autofit() Me.Text = title " 运行用时" CStr(My.Computer.Clock.TickCount - startTicks) "ms"
后面是输出代码，先在数组中生成，最后直接数组整体输出。如果逐行向表格输出，我测试过大约7秒钟。
- 随机文章
