国家统计局番禺调查队积极思考探索VBA宏在劳动力调查数据审核中的应用，有效提高调查数据审核效率和数据质量。

VBA编辑器是Excel中的插件，在WPS工作软件中就有自带的VBA编辑器。通过编辑器附带的动作录入功能，就能录制一套可重复播放的执行动作，之后再对动作程序进行模块化优化后，便可以形成一个能一键引用的宏。

VBA宏在劳动力调查中的审核应用，是以直报系统导出的调查户信息Excel表格为基础。直接通过导出数据查看相邻调查户之间的间隔时间，无法直接在表格上找出哪些调查户的时间差需要核实，而且导出数据按照调查户唯一编号顺序排列，与实际中的调查员入户路线顺序并不一致，时间顺序的乱序排列也增加了人工比对难度。为更好审核调查数据，引入VBA宏进行批量审核。(作者 张子阳)

第一步，先用Range函数对表中的调查户按照时间顺序进行排序。

在指定的表格区间使用双重排序条件，以B列的“管理机构代码”为优先项进行一级排序，并在这个条件的基础上再在U列的“开始时间”进行二级排序，整理出每个调查员、调查户在区域里进行时间的排序，避免出现不同调查员跨区域的时间比对干扰后续的操作。经过双重序列排序调整后的数据，开始时间已经按区域顺序排列整齐。

第二步，在新的空白列Z列建立函数显示相邻调查户时间差。

通过在Z列新增函数，对经过排序的调查户对象，用下一个户的开始时间减去上一户的结束时间得出时间差。由于直接用时间相减得出的时间差结果是一天(24小时)时间比值的一串数字，而并不是熟悉的“hh:mm:ss”的时间显示结构，并不能直观体现时间，仍需要通过单元格格式属性调整为常见的标准时间的形式显示。

第三步，应用编辑好的函数单元转换时间差数值。

把这个已经输入了函数和调整了单元格式的单元格扩展应用到整个Z列的表格范围，按照先前整理的排序得到所有上下相邻的数据间的时间差关系。期间虽然存在跨区域的时间差因函数错误而失效的情况，但不影响上下户时间差的审核筛选。

最后一步，筛选分离出目标时间差结果。

可考虑通过筛选功能在Z列结果集里筛选出0:00:00≤hh:mm:ss≤0:02:00区间的目标项，得到符合目标“相邻调查户间隔少于两分钟”的所有目标项。在Z1单元格标记上项目内容，到此所有模块动作已经完成，一键筛查宏操作完成。

编写完成后，把带有这个宏代码的文件更改保存格式为“.xlam”加载宏格式，并在软件上设置导入为默认启动加载项，在VBA编辑器里打开挂载文件的资源列表里找到宏，再次审核时直接通过应用界面使用功能模组。

VBA宏只需要一个动作就能输出需要的目标结果，宏的应用可以大大简化很多繁琐、复杂、低效率的人工操作，减少数据筛查步骤，降低在大量数据中提取不直观信息的难度。在实际工作中通过不断发掘新的需求，发现并总结方便工作的技巧或者操作，通过录制、编写、下载等方式建立不同功能的宏模块，可使得数据处理和质量把控变得更加方便、快捷、准确。