第1个问题：有关工作表快速拆分的问题。案例：将员工花名册按部门拆分成多个工作表。
批量拆分工作表的方法：数据透视表
1、创建数据透视表。
具体方法：把光标放在表格的任一单元格，【插入】→【数据透视表】→在数据透视表字段中将部门拖选到筛选区域，勾选（或拖选）其他字段到行（Excel2016在勾选日期字段时会自动添加【年】和【季度】字段，如果不需要，您可以将前面的√取消选择）。
2、调整数据透视表格式。
默认条件下创建的透视表看起来不符合我们的要求，需要进行一些调整。
具体方法：点击数据透视表任何位置→【数据透视表工具】→【设计】→【分类汇总】不显示分类汇总→【总计】对行和列禁用→【报表布局】以表格形式显示。
温馨提醒：
① 有时数据透视表会自动将日期变成月份格式，我们只要右击鼠标，选择【取消组合】就可以显示正常的日期了。
②有时日期会显示成####，这是因为字符宽度超出了列宽，我们只要把列宽调大就可以了。快速调整列宽适应单元格字符长度的快捷方法是选中要调整的列，将鼠标指针放到列号与列号之间，当指针变成十字后双击鼠标左键即可。
③有时身份证显示不对，我们只要设置单元格格式为自定义格式“0”即可。
3、按部门拆分工作表
具体方法：【数据透视表工具】→【分析】→【选项】→【显示报表筛选页】→【部门】→【确定】。
4、调整工作表格式。员工基本情况表数据源已按部门拆分成了7个工作表，为了下一步工作表拆分，先将工作表格式进行调整。
具体方法：全选工作表→右键【复制】→【粘贴成值】→删除第1和第2行（数据透视表不粘贴成值不能删除第1和第2行，调整日期格式和身份证格式。
第2个问题：将一个工作簿的多个工作表快速拆分另存为多个工作簿。案例，将我们刚刚用数据透视表按部门拆分的工作表批量另存为多个工作簿。
1、导入模块文件。
具体方法：按快捷键Alt F11，打开工程窗口→【导入文件】→选择模块文件（.bas）→【打开】→关闭VBA 编辑器。
2、工作表另存为工作簿。
①选中需要另存的工作表。选择连续的工作表可以按shift键选择第一个工作表，再选择最后一个工作表，选择不连续的工作表可以按住ctrl键点选工作表。
②【开发工具】→【宏】→选择“拆分工作表”宏→执行。
完成上述操作后，您就可以在当前工作表所在路径的文件夹中找到一个名为【拆分好的工作表】的文件夹，被另存的工作簿就存在这个文件夹里，工作簿名称默认为工作表的名称。
联系客服
