用Excel 人事部门，经常要对打卡机导出打卡时间，然后进行统计，今天的例子就是讲出勤时间统计的。

问题如下：解决的思路如下：·代码运行的结果如下：代码如下:代码解析

1：3行 DIM定义变量；

2：4行 把单元格的内容放入arr数组；

3：5行 用for循环遍历数组；

4：6行 用weekday返回对应日期星期几；

5：7行 判断日期是周末还是平时（法定假日，未在本次案例体现）；

6：8~12行 用Cdate转换两值相减之后的数据类型，用hour返回小时；

7：13行 统计所有周末的加班时间；

8：15~20行 返回平时上班的时间；

9：21~22行 统计平时正常上班与加班的时间；

10：27行 把数组写入相应的区域；

11：28~29行 把统计的工作时间，放入指定的单元格内；

12：30~32行 把arr数组 通过brr数组，然后进行转置（对本例可不需要）

小结：

解决本问题，需要用的知识点：

1：for next 循环

2：if 语句

3：or 或运算符

4：hour weekday 详见《Excel VBA 常用函数总结》

特殊说明：

私信 视频 可以获取54集VBA入门视频私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件