接上期：excel vba vb.net考勤时间处理通用方法（1）
Dim startTicks As Integer
startTicks = My.Computer.Clock.TickCount
。。。。。主要代码。。。。。
Me.Text = Me.Text + " 用时" + CStr(My.Computer.Clock.TickCount - startTicks) + "ms"以上代码用于自动计算程序耗时多少毫秒ms,加入这个功能主要是要考虑代码运行效率，培养珍惜机器时间观念，直观观察优化效果。
Dim ws = (New excel).activeworkbook.WorkSheets(3)
Dim arr = ws.Getgrid("A2:H1236")‘arr数组取得sheets(3)中"A2:H1236"数据
Dim brr = makegrid(UBound(arr, 1), 6)’生成6列的新数组用来暂存结果
Dim dd As String
For i = 1 To UBound(arr, 1)
brr(i, 1) = arr(i, Abc2INT("A")) '第1列存姓名
brr(i, 2) = arr(i, Abc2INT("B")) '第2列存部门
brr(i, 3) = arr(i, Abc2INT("E")) '第3列存userID
dd = arr(i, Abc2INT("H"))
brr(i, 4) = leftstr(dd, 10) '第4列存日期
If excelpub.in考勤时间("08:30", "09:00", dd) <> "" Then brr(i, 5) = 1
If excelpub.in考勤时间("18:00", "18:30", dd) <> "" Then brr(i, 5) = 2
‘第5列存
brr(i, 6) = dd'第1列存实际考勤时间，方便对照
NextIf excelpub.in考勤时间("08:30", "09:00", dd) <> "" Then brr(i, 5) = 1
If excelpub.in考勤时间("18:00", "18:30", dd) <> "" Then brr(i, 5) = 2以上两行加入了两个考勤时间范围，使用了上篇文章使用的excelpub.in考勤时间，返回1表示第1次考勤正常，返回2表示第2次考勤正常，没考勤返回空，如果需要更多考勤时间范围，直接加几行。
最后把结果输出：
Dim ws2 = (New excel).activeworkbook.WorkSheets(4)，在第4张输出
ws2.allcells.Clearcontents() '先清空输出区域
ws2.allcells.set文本格式()
ws2.setgrid(brr, 1, 1)’在1行1列开始输出brr数组
ws2.allcells.autofit()
Me.Text = Me.Text + " 用时" + CStr(My.Computer.Clock.TickCount - startTicks) + "ms"注意观察E列获得的结果，D列为日期，判断结果正确，整个行数与原表一样多。
用时约140ms,大约0.14秒完成，速度可以接受。
下一步，把那些不在考勤时间范围的行去掉，有两种方案：
方案1：用代码去逐行删除，因为删除中行号不断在删除，应该从最后一行开始删除。我们先试下删除时间到底是多少（注意这些时间只是在我电脑上的时间，如果你的机器速度更快，或许不需要这长时间）
运行结果：用时3011ms，就是用了3秒多，感觉速度不快啊
方案2：重建新数组，在内存中遍历把E列不为空的（也就是有效的数据行）直接复制到这个新数组，最后再整体输出，完全不需要“先输出再删除”的奇葩操作。
（ps这里顺便吐槽一下，有些博主在介绍很多花式技巧时，非常喜欢用“先拼接成字符串，再把字符串拆解”的奇技淫巧。明明这是在误导他人，还非要反复炫耀。）
看看左边代码和右边运行结果，只用了140ms毫秒，几乎和前面相比没什么变化。与方案1的3000多毫秒相比，简直云泥之别。这就是速度提升的效果。