接上期：excel vba vb.net考勤时间处理通用方法（2）

得到了一个brr2的镜像数组，然后把它输出到sheet4中，这个表是前期处理的重要结果。它包括了姓名、部门、userID、日期，考勤点、具体考勤时间等后期需要的重要信息。

表格样式如上图：

但是这个表还有问题：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 string
End Type

使用：
Dim kq As kq_rec
With kq
    .姓名 = "老五"
    .部门 = 55
End 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秒钟。