今天一银行朋友求助,希望将其银行的员工花名册按支行名称拆分为多个工作簿,且该工作会经常执行,但该朋友也不便于安装三方插件,于是我就只能自己动手解决问题了。

原始Excel工作表是这样的,其需按照“一支名称”进行拆分:

access拆分表 access拆分成多个工作簿_分表

拆分后是这样的,拆分后的工作簿命名规则为:(一支名称)+原表格标题名称。原表格标题名称即为“An”单元格文字,n为表头起始行行号。

access拆分表 access拆分成多个工作簿_拆分工作簿为多个文件_02

一、实现过程

运行前,若工作簿未启用宏,则需先启用。

access拆分表 access拆分成多个工作簿_本工作簿不能再使用其他新字体_03

需拆分工作簿路径:选择或粘贴需要拆分的工作簿的路径。(若工作簿未启用宏,则需先启用,否则无法“选择”)。

需拆分的表名:输入“需拆分工作簿”中的工作表表名,如案例中的“明细”。

表头起始行:即表头区域起始行号,可手工录入数字。起始行号与正文起始行号间的内容将作为拆分后的表的表头。如案例中为1。

正文起始行:表格中正文开始行号,可手工录入数字。。如案例中为3。

以第N列进行拆分:将以第N列为标准进行拆分,可手工录入数字。原始数据中应将属于相同基准的放在相邻行中。如案例中“一支名称”下同属“大渡口”的应紧挨相邻行,不能中间再间隔其他支行。若会看VBA代码,就了解原理了。因该内容最后将作为文件名的一部分,故不能包括文件名不能包含的字符,同理表头内容也如此。

access拆分表 access拆分成多个工作簿_文件名_04

是否拆分为多个工作簿:若选择“是”将创建多个工作簿,否则在一个工作簿内创建多个工作表。当为“否”时,生成后需自己保存并命名新产生的工作簿;当为“是”时,将自动在本工作簿路径下新建“拆分后的文件”文件夹,并将拆分后的Excel工作簿保存于此。

设置完成后,点击“开始拆分”按钮,即可开始拆分。拆分完成后,将提示。

access拆分表 access拆分成多个工作簿_分表_05

二、文件下载路径

项目名称:分表助手

https://share.weiyun.com/5xI2J0S 密码:w8hsgm

该路径下还包括历次公众号介绍的软件或程序。

access拆分表 access拆分成多个工作簿_拆分工作簿为多个文件_06

三、分表助手实现代码

实现方法可见分表助手.xlsVBE后台(ALT+F11),您可再进行优化。