上期：excel vba vb.net考勤时间处理通用方法（3）得到以下图表

这个图表包含了所有考勤常规报表中的全部信息：

姓名部门工号考勤日期第1次考勤第2次考勤，（如果有多次考勤，还可以继续增加，有1表示第1次考勤成功，有2则表示第2次考勤成功，空缺表示没有考勤）

表格中经过前期清理，没有无效数据行，无任何冗余信息。这个报表一也是呈现有一种方式。前面3期我是分步做的，分解过程看得详细，实际上完全可以一键获得这个报表一。

（有公式高手说，切，这小儿科还要写代码？我分分钟搞定。是的公式可以搞定，PQ也可以搞定，但是考勤处理是每天、每周、每月都可能要使用的高频度应用，每次打公式拖，每次打开PQ操作，甚至直接写模块化vba都觉得麻烦，vba至少要写在表格中吧。vbnet点一下按钮，直接批量打开表格，批量汇总计算、自动出报表、甚至自动发送到邮箱、自动上传到内网......这些常规高频工作，如果用人工做效率只能想想。）

但是人事部门对这个表不满意，她想知道一个月内每个员工成功打了几次考勤，必须把这个纵向表变成纵横表。这里要区分一个概念：

一维和二维表，以上表格在某些博主眼中可能会算一维表，但从初学者眼中看明明是二维表格嘛。我无法去详细解释概念，所以我这里大胆启用一个新概念：纵向表。类似于数据库中表格呈现的状态。

这个表就是我说的纵横表，左侧是员工姓名，右侧是考勤日期，为缩减位置如果是分月报表可以只写日期。编程之前可以先把要需要的表格设计出来，再编程去实现。

编程第1步：先要从报表一中把所有员工姓名提取出来先在A列，然后生成当月日期放第2行

用时280毫秒

月份由图三中的窗体文本框人工输入，然后用下面代码生成当月日期

Dim 月份 = leftstr(Trim(TextBox1.Text), 6) '从报表二H1单元格中取得月份如201712
        Dim day当月天数 = System.DateTime.DaysInMonth(Val(leftstr(月份, 4)), Val(rightstr(月份, 2)))
        For i = 1 To day当月天数
            brr(1, i + 1) = i
        Next

并且直接设置好格式，以后直接生成一张报表二：
ws2.allcells.Clearcontents()
        ws2.range(1, 1, 1, day当月天数 + 1).merge()
        ws2.cells(1, 1) = 月份 + "什么公司月度考勤报表"
        ws2.getcell(1, 1).水平居中对齐()
        ws2.getcell(1, 1).set字体字号("黑体", 18)
        ws2.setgrid(brr, 2, 1)
        ws2.column批量设置列宽(2, 35, 2.75) '2.75列宽

有人说，什么数据都没有啊，不急啊，在盒子（表格）中装东西（考勤数据），是先要准备盒子后东西才能放的。

手工把第一个员工考勤放在右边，大家可以比较下，哪天考勤了几次，哪天没考勤一目了然。

相比上面做盒子框架（设计好表结构），以上代码只有红框中的是新增加的，就是直接去搜索然后输出到brr数组，最后全部大数组直接输出到ws2报表二，用时约290ms