疫情防控工作为什么效率低下,其实Excel水平太低也是一个方面,我老婆就在社区工作,最近我们这里也封控了,她们日常有一半的事情就是在各个群里找居民收集用户信息,然后整理表格,然后就是各种各样的表格数据处理,还要做成各种样式上报汇总,平时工作量小,做得慢就慢点,但是遇到了疫情防控,Excel水平低下的缺点暴露太多,比如我截图这个表,就是一部分工作,这个表左边到右边,她手工做,最快也要20分钟,据她说她还算是快的,而这样的表可能要做好几张,时间就这么过去了,昨天她说她实在忙不过来了找我帮忙,我就写了一个vba代码,用了5分钟,一键完成,以后类似的表统统可以一键完成!注意这个问题,只有代码可以完成,函数无法做到,所以手里表格工作比较多的朋友,还是学一点vba吧,非常实用,可以10倍100倍的提高日常工作效率!
代码如下
代码思路如下
按行循环到最大行 声明一个较大的结果数组 比如10000行的brr 避免redim
名单列先按顿号split拆分到局部数组arr 再循环遍历名单
注意最后一个名单+空格+手机号 所以按空格split得到第2个数组brr
在arr内部循环中 结果数组行号k+1依次写入结果行 手机号从crr获得
注意最后一个k行的姓名要重新写入去掉手机号
6. 循环过程中已经知道结果每行的行数 所以直接计算得到结果合并区域进行合并(代码第10 11行)
7.最后写入数组到结果区 注意这里写入k行 而不是ubound(brr)
8. 设置单元格边框格式 以及居中
案例文件下载
联系客服