在平时工作中,审计人员经常要对大数据筛选出的疑点分发至各组核实,常规方法是筛选、复制、粘贴后形成归口数据再分发,该方法重复性高,效率低,数据量大、单位多时显得颇为不足,该如何快速切割大数据,提高审计工作效率呢?笔者以部门预算审计中总体分析为例,运用EXCEL VBA函数实现大数据的高效切割,供大家参考学习。
步骤一:源数据准备
基于预算指标和国库支付数据,对预算单位项目预算执行进行总体分析,分析后需要按单位切割疑点再下发至各组核实取证。打开项目预算执行分析电子表(已启用宏),如下图,从第3行开始切割,每个子表都保留表头和标题,“唯一码”为切割依据和电子表格命名。
步骤二:创建模块
单击表名“表2-项目预算执行分析”——右键——选中查看代码:
在模块1中添加函数:
具体代码如下:
步骤三:运行结果
选择VB窗口中“运行”---“运行子过程/用户窗体”或者按“F5”,执行编写的“拆分”模块,运行结束后,在项目预算执行分析电子表同级目录下已新建 “切割出的表格”目录,所有数据已切割完成,效果如下:
分割出的表格数据:
VBA是Visual Basic的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。这次工作,通过运用VBA编程,极大地提高了工作效率,一百多个单位的工作表在几秒钟之内全部切割完成,准确率百分之百。程序代码具有重用性,其他相关工作可以再利用,有一劳永逸的效果。