一个表可以有多个主键_<127>把一个工作簿中的多张工作表快速拆分成多个工作簿，会计也要写代码...

分久必合，合久必分。

excel的使用中，使用频率最高而且让我们最头疼的操作不是合并就是拆分，不是拆分就是合并。刘老师收到的频率最高的提问不是合并就是拆分，不是拆分就是合并，本公众号陆续介绍过使用函数或菜单来合并的方法，比如：

<75>利用Query进行多表合并

<122>Indirect函数第三讲：多表合并

但是，要论快速和省事，当然莫属使用VBA代码了，一键就可以完成合并和拆分，接下来几周，我打算做个拆分和合并的VBA代码集合：

拆分文件

1、把一个工作簿中的若干张工作表拆分成单个工作簿，并以工作表名命名

2、把一个工作表中的每一列拆分成单个工作簿，并以表头命名

3、把一个工作表按筛选结果拆分为若干张工作表(同一个工作簿内)

4、把一个工作表内的若干年资产负债表按年拆分为若干张工作表(同一个工作簿内)

5、把一个工作表按行拆分为若干张工作表，并以行首单元格命名(同一个工作簿内)

合并文件：

1、同一个文件夹内的若干个工作簿合并到一个工作簿(放在若干个工作表内)

2、同一个工作簿内的若干张工作表合并到一个工作表内(上下结构)，比如3个车间工人的3张工资表合并成1张工资表。

3、同一个工作簿内的若干张工作表合并到一个工作表内(左右结构)，比如，放在若干张工作表内的若干年资产负债表合并成1张汇总表。

---

今天发布的视频和代码是：把一个工作簿中的若干张工作表拆分成单个工作簿，并以工作表名命名工作簿。

代码如下，复制粘贴到模块里就可以了。

Sub 拆分工作簿()    Dim sh As Worksheet    Dim MyBook As Workbook    Set MyBook = ActiveWorkbook    For Each sh In MyBook.Sheets        sh.Copy        ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sh.Name & ".xlsx"        ActiveWorkbook.Close         Next    Application.DisplayAlerts = False    Application.ScreenUpdating = False    MsgBox "文件已经被拆分完毕!"End Sub

---

有任何疑问，请带着excel文件来提问。泛泛提问，可能得不到有效回答。

关于提问请点击链接

如何有效的提问

‍

点击蓝色字体    回顾热门文章 

被教材坑过的那些年——论股票的估值(上)

被教材坑过的那些年——论股票的估值(下)

毕业季——论文排版讲座视频汇总

信用卡分期还款引发的讨论 

你的房贷每月还款额是这样计算出来的(等额年金法)

你的房贷每月还款额是这样计算出来的(等额本金法)

使用数据透视表在汇总表中按要求进行筛选

买保险的，卖保险的，都要进来看一看

来，来，来，我教你怎样向会计系女生表白

你还在使用收费的抽奖平台或抽奖软件吗？那真是弱爆了！使用Excel也可以抽奖喔！

另一种思维方式——论资产的价值倒底几何

1秒钟核对两个表格的异同——使用突出显示单元格规则

开奖啦！开奖啦！开奖啦！

在公众号中发送“目录”可获取所有教学视频目录

在公众中中发送“论文”可获取毕业论文排版讲座视频