特殊的需求,要将一个工作表里的内容按照部门拆分成不同的工作簿,咋办呢?是复制粘贴,保存文档还是有别的更好的方法?下面我们通过数据透视表加一小段代码来实现。
打开表格,全选整个表格,点击功能区“插入-数据透视表”。
弹出窗口,直接点击确定,右侧显示数据透视表字段,因为按部门拆开,把部门拉到筛选窗口,其他的字段勾选会自动分到行或列。
点击功能区右上角新增加的“设计”选项卡,单击左上角的“分类汇总”,下拉选择“不显示分类汇总”,这一步是让表格里汇总行去掉。
点击功能区“设计-报表布局-以表格形式显示”,让透视表呈现表格的方式。
点击“重复所有项目标签”,让表格里空白单元格自动填充上方单元格的信息。
点击功能区“数据透视表分析-选项”,下拉选择“显示报表筛选页”,弹出窗口,点击确定。
现在工作簿里新增加了以四个部门命名的工作表,也就是原来的透视表根据部门拆分成了四个工作表。
按下SHIFT键,全选四个工作表,点击左上角的三角,全选工作表,按下复制键。
点击粘贴,下拉选择“值”,将透视表转换成值,也就是转换成了普通的表格。
注意依然选中四个工作表,这样操作就是针对四个工作表一起操作,删除掉上方不要的表头两行数据,在键盘上按下“CTRL+H”,打开替换窗口,输入“求和项:”替换成空,调整数字的格式,设置为两位小数位数。
点击功能区“开发工具-Visual Basic”,如果没有找到开发工具的,可以自己去自定义功能区里将它找出来,这里不过多讲述。
新建立一个模块,复制上这串代码,至于代码是啥意思,咱们不懂程序的可以不用去管它,复制粘贴上去就可以了,点击上方的绿色三角运行程序。
等待几秒后,窗口弹出“工作簿创建完毕”。点击确定。
打开原EXCEL表格存放的文件夹,这个时候看到多出了四个以部门命名的EXCEL表格。可以打开看看,现在每个部门的数据单独存放到了一个工作簿里。
怎么样,这样子拆分起来是不是又快又简单呢?